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arjeta,-suscnpci0 , ,rr, 

• Oeseo suscribirme a la revista Microhobby Amstrad durante un aho (50 n0meros) par s61o 
6.900 ptas., Io que me supone un ahorro de 1.100 ptas. Adem6s, quedarg suscrito autom6ticamente, y sin 
ningOn cargo adicional, a Amstrad Cassette par sets meses. 
• Deseo suscribirme a las cintas de Microhobby Amstrad (12 cintas), al precio de 8.175 
ptas., Io que me supone un ahorro de 900 ptas. La primera cinta que deseo recibir es la 
Fecha de 
NOMBRE nacimienta 
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OOMICILIO 

CIUDAD PROVINCIA 
C. POSTAL TELEFONO PROFESION 
Marco con una (x) en el casillero correspondiente Io torma de pago que m6s cony/erie. Fecha y firmo 
[3 /arjeto de cr6dito n. ° 
[] Visa [3 American Express [] Master Charge 
Fecha de caducidad de Io tarjela 
D Tal6n boncario a hombre de HOBBY PRESS, S.A. _ ,,,,  L,,I4JI/. ,, . 
I-1 Giro Postal a nombre de HOBBY PRESS, S. A., N.o del gro I  . ',  
E] Conlra reembolso del primer envio. (Supone 75 plas. de gostos de envio). ", ''" I' i,  " 
Si Io prefiere, tambin puede suscribirse par telfono.  /,  . 
734 65 O0 
i 
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La impresidn de ndmeros en panta/la, en 
hexadecimal y decimal, puede parecer un asunto 
bastante trivia/, y, vista desde Basic, sin duda /o es. 
Pero cuando se trata de lengua/e mdquina, la cosa 
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Ao II ° N6mero 57 ° 14 al 20 de octubre de 1986 
/60 pros. (incluido I. V.A.) 
Canarias, 155 pta. + I0 ptas. sobretasa aerea. 
Ceuta y Me/ilia, 155 ptas. 

Primera piano -" 
Novedades Amstrod: 
D/nordic lanza el Cobra Arc. 

la planificaci6n de proyedos es una de/as dreos 
de la gesfi6n en la que los ordenadores, debido o su 
gran capacidad de cdlculo, pueden ser ms Oti/es. E/ 
programa eCamino crltico, que acompafia al 
artculo, as/ Io demuesfra. 

GestiSn ficheros 

Os ofrecemos una /Neresante rut/no/Nel/gente para 
la gesli6n de cargo de//cheros. Estd /lena de trucos 
que merece /o #ena oprender, pero, naturalmente, 
s6lo es t/I para el disco. 

Mr. Joystick 
West Bank es una divert/do aventura en el Oesle 
Americana, en la que debemos salvar a unos 
cuantos inocentes a tiro /impio. Diversi6n y 
adicd6n garant/zadas. 

C  digo Maquina 

La impresi6n de nmeros en pantal/a, en 
hexadecimal y decimal, puede parecer un asunlo 
bastante trivia/, y, vista desde Basic, sin duda Io 
Pero cuando se trata de lenguaie mdquina, Io cosa 
cambia radicalmente; no es que se vuelva 
incomprensible, pero hay unos cuantos puntos a 
adarar, precisamente los que se trafan en este 
artfculo. 



Aparcomiento gratuito en Felipe II 

OFERTA DE SOFTWARE: 2 PROGRAMAS AL PRECIO DE 1 

JACK THE NIPPER 2.100 ptas.. KNIGHT GAMES 
BAY MAN 2.300 ptas. STAINLESS STEEl 
ROCK'N LUCHA 1.395 ptas. SABRE WULF 
• THE WAY OF THE TIGER 2.300 ptas. SABOTEUR 
WEST BANK 1.395 ptos. PING PONG 
CAMELOT WARRIORS 2.300 ptas. EQUINOX 
WORLD CUP |.395 pros. CAULDRON II 
DECATHLON. I 495 pas. BEACH HEAD, 
DRAGONTORC k 495 ptas. SOUTHERN BELLE 
WORLD CUP (DISCO) 3.300 pros. MOVIE (DISCO) 
GREEN BERET (DISCO)• 3.300 ptas. I 

SOiTWARE DE REGALO (OFERTA 2 x 1) 
DECATHLON BEACH HEAD SOUTHERN BELLE 
DRAGONTORC 

2.300 ptas. 
2.300 ptas. 
'1.695 ptas. 
2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
'4,95 ptas. 
,495 ptas. 
3.300 ptas. 

LAPIZ OPTICO 
3.295 PTAS. 
CASSETTE ESPECIAL ORDENADOR 
4.495 PTAS. 

1 
SINTETIZADOR DE VOZ EN 
CASTELLANO 
I 
7.650 PTAS. 
AMPLIACION DE MEMORIA ANTA 64 K.3 
12.500 PTAS. 

IMPRESORAS / 
20 % DE DESCUENTO SOBRE P.V.P. 

TAPA DE METACRILATO 464 
CABLE CENTRONICS 
CABLE SEGUNDA UNIDAD D. 
CABLE SEPARADORES 6128 
INTERFACE RS232 
CINTA VIRGEN C15 

3,175 
1.790 
1.975 
9,265 
69 

CABLE AUDIO 795 
CABLE ADAPTADOR 2 JOYSTICK 2.390 
CABLE SEPARADORES 464 1.390 
CABLE SEPARADOR 8256 2.900 
CABLE RS232 2.500 
DISKE1-[ES 3" 990 

COMPATIBLE PC-IBM 
SOFTWARE DE GESTION 
2 BOCAS DE DISCO DE 360 K 
MONITOR Y TECLADO EN CASTELLANO 
169.000 PTAS. 

CONVERTIDOR DE MONITOR AMSTRAD 
EN TELEVISION 
21.900 PTAS. 

PRECIOS EXCEPCIONALES PARA TU AMSTRAD 
CPC-464, CPC-6128, PCW-8256, PCW-8512 

OFERTAS EN JOYTICKS / 
QUICK SHOT I 1.395 
QUICK SHOT II 1.695 
QUICK SHOT IX 2.395 

,RATON DE PANTALLA 
CON SOFTWARE 8.900 PTAS. 

PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO. TEL. (91) 275 96 16 - 274 75 02 
O ESCRIBIENDO A: MICRO-1. C/DUQUE DE SESTO, 50. 28009 MADRID. 

Tiendas y distribuidores grandes descuentos. 
Dirigirse a Diproimsa. C/Galatea, 25. Tel. (91) 274 75 03 



COBRA ARC 
DE DINAMIC 

Los sacerdotes de 
una cultura milenaria vivian pl6cida- 
mente en un reino lejano, dedicados 
por entero a la veneraci6n del Dios 
Cobra. 
En lugar construyeron un templo 
inmenso en el que durante siglos fue- 
ron depositando: esoros, joyas, oro 
y toda una suerte de riquezas hasta 
que la tradicci6n popular hizo suya 
la leyenda y las generaciones pasa- 
ban en vida pensando d6nde se en- 
contraria el tesoro del Templo Co- 
bra. 
En realidad los sacerdotes para 
proteger toda esa inmensa riqueza 
habian construido alrededor del te- 
soro un inmenso barro tan grande 
como una pir6mide, asustados por 
las profecias del adivino Werdhal 
que vaticinaba un maremoto y una 
galerna que asolaria sus tierras. 
La profecia se cumpli6 y el tesoro 
del templo qued6 perdido entre las 

gigantescas olas que Io transporta- 
ron lejos, muy lejos; nadie sabia d6n- 
de... 
EL PRESENTE: 
Nuevas generaciones de aventu- 
reros han leido los viejos pergaminos 
donde se habla del tesoro y del Tem- 
plo Cobra. 
Todos quieren encontrarlo, pero 
pocos saben c6mo Ilegar hasta 61. 
Puedes partir de tres ciudades di- 
ferentes: 
1. Hyrga: Cordillera del Himala- 
ya al Suroeste del templo Cobra. 

2. Greystone: Ciudad amurallada 
toda ella de piedra y metal. 
3. Vendha: Ciudad del terrible, 
desierto de Niobia, es dificil sobre- 
vivir en 61. 
CLAVES ARGUMENTALES: 
El objetivo del juego consiste en lie- 
gar al Templo Cobra y rescatar el te- 
soro. 
Para Io cual tienes que efectuar 
unos pasos obligatorios: 
1. Matar al Principe Cobra. 
2. Matar al hechizero. 
-- Cuando has acabado con los 
dos, est6s en situaci6n de Ilegar al 
templo Cobra. 
-- Para entrar en 61 necesitas la 
Ilave, y para conseguirla debes dar- 
le un regalo a un personaie determi- 
nado. 
-- Procura permanecer el menor 
tiempo posible en el mar porque se 
desatan muchas tormentas peligro- 
sas. 
-- Para acabar con los dragones, 
necesitas utilizar la espada. 

COMPUTER .SHOW 

impeca01e orgonizaci6n, asi como 
un frr:.o o.i invisible sistema 
de seguridad, se ha celebrado en 
Londres, durante los dias 3, 4 y 5 
de octubre, el Amstrad Computer 
Show. 
La edici6n de este ao ha 
estado marcada pot una 
predilecci6n muy especial hacia 
las comunicaciones. M6s de 10 
modelos distintos de modems se 
presentaban ante 6vidos 
compradores algo perdidos y 
desorientados ante la numerosa 
cantidad de ofertas. 
Los servicios de 
telecomunicaciones a los que el 
ciudadano brit6nico puede 
acceder desde su ordenador, por 
pequefio que 6ste sea, convierten 
al modem en una golosina 
dificilmente rechazable. Entre 

estos servicios, destacan los de 
Microlink Prestel y Micronet 800. 
La utilizaci6n de estos servicios 
conlleva amplias posibilidades, 
entre las que destacan: Telex, 
Mailbox, Telesoftware, Base de 
datos, Bolletin Board... 
En otro orden de cosas, el 
CAD/CAM fue atro de los 
atractivos de la edici6n de este 
trimestre del Amstrad Computer 
Show. Digitalizadores y plotters, 
con una calidad gr6fica muy alta, 
constituian el otro blanco de la 
curiosidad del p0blico. 
En cuanto a software, nada 
nue,o bajo el Sol, salvo un editor 
de sprites y un juego 
conversacional de Interceptor 
software con una calidad gr6fica 
muy superior a Io visto hasta la 
fecha. 
Volviendo al hard, un nuevo 
perif6rico, el interface TWO, de 
Romantic Robot, que permite 
obtener cualquier juego, grabarlo 
en disco o cinta, modificarlo y un 

largo etc6tera. Un buen perif6rico 
que esperemos sea pronto 
comercializado en Espaa. 
En general, la feria constituia 
una plataforma para 
distribuidores y comerciantes, en 
un pais donde la inform6tica ha 
deiado de venderse en tiendas 
especializadas y ha pasado alas 
tiendas de electrodom6sticos y a 
la venta por correo. 
A pesar del ambiente comercial, 
todos se volcaron en nuestra 
presencia, Io que, aparte del 
orgullo personal que esto significa 
para nuestra revista, hace patente 
la madurez que est6 alcanzando 
el mercado inform6tico en nuestro 
pals, mercado, por otra parte, 
hasta hace muy poco bastante 
ignorado. 
La semana que viene 
dedicaremos un amplio espacio a 
esta feria, cargada de novedades, 
en la que ana[izaremos a rondo 
todas las posibilidades de estos 
equipos. 
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Hasta ahora hemos estado hablando de que la misi6n de la 
memoria dentro de cualquier ordenador que se precie es 
recordarle a la CPU (Unidod Central de Proceso) del estado en que 
se encuentran sus tareas. 

P 

ara tal fin anotaba en 
elias los trabajos que ya ha realizado, los que 
todavia le quedan pendientes y, adem6s, to- 
dos los datos que un programa, o conjunto de 
instrucciones, tenga que manejar o tratar)). 
Asi pues, habiamos quedado que dentro de 
la memoria de nuestro Amstrad van a es- 
tar guardados o almacenados un mont6n de 
n0meros que representargn cosas muy distin- 
tas. 
AIguno de ellos ser6 un c6digo) que simo 
boliza una instrucci6n Basic. El intrprete, que 
ya est incorporado en la memoria ROM de 
la m6quina, se dar cuenta de ello y traduci- 
r este n0mero a un conjunto de instrucciones, 
en un lenguaje que ya el ordenador si es ca- 
paz de entender, y tranquilamente las ejecuo 
ta. Tales instrucciones est6n compuestas total- 
mente por un conjunto de ceros y unos yes 
Io que conocemos como denguaje m6qui- 
Otros n0meros, de todos los que conviven 
en la memoria de un Amstrad, representan 
solamente eso, un ngmero que responde al va- 
lor que toma una variable de tipo numrico, 
claro, en un instante en concreto. De aqui es 
de donde los va cogiendo o deyendo)) la 
Unidad Arimtico-L6gica para despus ope- 
rar como ellos y devolver el resultado obteni- 
do tras la operaci6n al espacio reservado en 
la memoria para contener Io que vale la va- 
riable correspondiente. 
Por 01timo, diremos que hay otros n0meros 
que representan 1 de los 255 simbolos ya de- 
finidos que posee el juego de caracteres del 
Amstrad. Son Io que hemos ilamado en 
otras ocasiones anteriores los c6digos Ascii de 
los mismos. Asi que cada uno de los signos que 
el ordenador utiliza para comunicarse con no- 
sotros, cifras, letras, simbolos de puntuaci6n 
y hasta alg0n que otro hombrecillo corrieno 
:do que bien podria servirnos como grfico de 
cualquiera de nuestros queridos y adorados 
iuegos de arcade, est6 asociado a un n0me- 
ro que es su c6digo Ascii. 
"6 ,CROO AMSTRAD 

Como hemos visto con todo Io anterior, una 
cosa debe quedarnos muy clara: todo dentro 
del Amstrad est representado por nOme- 
ros. De acuerdo. Ahora bien, ya que damos 
por sentado que toda la memoria estg Ilena 
de n0meros, o hablando m6s correctamente, 
ya que tenemos un mont6n de nOmeros almao 
cenados en alguna direcci6n o posici6n de 
la misma, puede surgirnos una pregunra: :C6- 
mo se almacena un valor cualquiera en una 
determinada direcci6n))? 
Quiz6s, de momento, pueda parecerle es- 
ta pregunta como algo que no tiene fcil so- 
luci6n o, iquin sabe!, si para usted sea ya al- 
go trivial y superado. En ambos casos, le ro- 
gamos que se esfuerce un poquitin y nos siga 
sin asustarse, si se encuentra entre los que es- 
t6n en el primero de los supuestos, o con inte- 
rns si es del segundo grupo, ya que siempre 
viene bien comprobar si nuestras propias ideas 
son del todo v61idas, o necesitan alggn ligero 
retoque. Vamos a ello. 
El interior de la memoria de un ordenador 
est compuesto por una multitud de celdi- 
tas)) que pueden estar de dos formas difereno 
tes: activadas o desactivadas, no pueden to- 
mar un estado intermedio. 
Es algo semejante a Io que ocurre con las 
bombillas. Cuando una recibe una corriente 
elctrica adecuada, ;,qu pasa? Algo muy 
sencillo: la bombilla se enciende. Y en caso 
contrario, o sea, cuando deja de circular la 
corriente. La respuesta es muy simple: se apao 
ga. 
Bueno, pues Io mismo ocurre con las celdi- 
Ilas de la memoria. Se activan cuando les Ile- 
ga una corriente y se desactivan cuando cesa 
o seven afectadas por alguna de sentido con- 
trario. 
Asociemos ahora un ((digito)) a cada uno 
de estos estados. Llamaremos 1 al de una cel- 
dilla que se encuentra activada o encendida 
y 0 si est( apagada o desactivada. Y a base 
de ceros y unos vamos a construir toda nues- 
tra teoria inform6tica)h 
Vayamos dando hombres a estos nuevos 
conceptos. Bit, que es la abreviatura de Di- 
gito Binario o Binary Digit, que dirian los in- 
gleses, es la unidad minima de informaci6n que 
un ordenador puede interpretar. Se correspon- 



deria con uno de los dos estados -0, 1- que 
puede tomar coda una de las celdillas elemen- 
tales en los que est6 dividida la memoria. 

Bits y bytes 

Por qu este nombre --(Bit))-- proviene 
de Digito Binario. Todos los humanos estamos 
acostumbrados a contar cualquier cantidad 
partiendo del n0mero de veces que contiene 
el nOmero diez. Por eso decimos que emplea- 
mos un sistema de numeraci6n (decimab, 
o de base 10, ya que es en este n0mero en 
que nos basamos para decir la cantidad 
de unidades que hay de una determinada co- 
Y,cucntos digitos o cifras utiliza este siste- 
ma d-e numeraci6n. De todos es sabido que 
diez, det 0 al 9. Con ellos vamos componien- 
do cualquier n0mero por grande o pequeo 
que sea. 
En cualquier sistema de numeraci6n ¢ada 
uno de los digitos tiene dos valores muy dife- 
rentes. Uno es el propio: es el valor absoluto. 
Sin embargo, tambign tiene otro que depen- 
de de la posici6n que ocupe dentro del ngme- 
ro. Por ejemplo: 
32 
es una cantidad que contiene 2 unidades de 
primer orden y 3 de segundo. En el sistema 
de numeraci6n decimal es demasiado evidente 
que como por cada 10 unidades de primer or- 
den se forma una de segundo, nuestro n0me- 
ro contendr exactamente: 
30+2=32 
unidades de primer orden, o unidades <a se- 
cas. En otros sistemas no Io ser tanto, ya Io 
veremos. 
Podemos extender esto. Cada unidad de ter- 
cer orden contiene diez unidades de segundo 
y por tanto: 
10x10=100 
de primero. De modo que el n0mero 342 po- 
driamos representarlo como la suma de: 
2 unidades de primer orden=2. 
4 unidades de segundo orden=4x 10=40. 
3 unidades de tercer orden=3 × 10× 10=300. 
ue nos da como resultado las 342 unidades 
e primer orden que todos est6bamos espeo 
rando. Y asi podriamos seguir indefinidamen- 
te. 
Volvamos a Io nuestro. Dijimos que un or- 
denador s61o puede reconocer dos estados de 
informaci6n: 0 y 1. Pues con estos valores fa- 
briquemos un sistema de numeraci6n cuya ba- 
se ser6 el n0mero 2 (en decimal) y que nos ser- 
vir6 para conocer el valor de cualquier n0me- 
ro binario) formado a partir de una combi- 
naci6n de ceros y unos. 
Por eso, al ser el 0 y el 1 los dos digitos que 
dan forma a este sistema de numeraci6n, es 
por Io que hemos Ilamado Bit) (a Dfgito 8i- 

nario, carna ctuiera) a cada uno de los dos es- 
tados -activado o desactivado- que tiene ca- 
da una de las clulas elementales que forman 
la memoria del Amstrado 
Ahora bien, un ordenador no suele traba- 
jar con bits) de informaci6n, sino que los 
agrupa hasta que su conjunto pueda ya sig- 
nificar algo que est m6s al alcance de los 
hombres. 
C6mo se agrupan los bits? Si fuera pot no- 
sotros no habria ning0n problema, pero pa- 
ra nuestro ordenador, si. El verdadero cere- 
bro y director de todo Io que ocurre es el (mi- 
croprocesadorL El que dispone el Ams- 
trod se llama Z-80 yes el que limita el hOme- 
ro de bits que podemos agrupar. Les vale con 
tener conjuntos de 8 bits. 
AI Z-80 por supuesto que si, perfectamen- 
te. De modo que a partir de ahora conside- 
ramos que la memoria del Amstrad est6 di- 
vidida en asociaciones de 8 celditas elemen- 
tales de las que antes hablamos. Y a est6 com- 
binaci6n de 8 bits la reconoceremos como 
byte o en un lenguaje que entendemos un 
poquito meior octeto. 
Bits, bytes, qu tol vamos con esta nueva 
terminologia. 
Cada uno de estos bytes Io tiene el ordena- 
dor en el interior de su memoria perfectamente 
localizable en una posici6n ilia: su (direc- 
ci6n. 
Adems la combinaci6n de unos y ceros que 
forman un byte, al fin y al cabo, repre- 
senta un n0mero, aunque en binario, daro. 
Y este n0mero es Io que entendemos por con- 
tenido del mismo. 
"Asi que podemos asociar dos cosas a un 
byte)). Una es su colocaci6n o ((direcci6n 
dentro de la memoria y unos sirve para acce- 
der a 41 cuando sea necesario. La segunda es 
Io que Heva en su interior: su ((contenido) 
o ((dato. Imaginamos que poco a poco to- 
dos estas ideas se ir6n asentando en su me- 
moria y Io que aparecia casi como un acto 
de brujeria o de magia se vaya transforman- 
do en algo ms 16gico y evidente y que nos 
deja intervenir en ello para adecuarlo a los fi- 
nes que queremos conseguir. 
Todo va bien, pero seguimos sin saber qu 
valores son los que podemos guardar en una 
posici6n de la memoria y c6mo guardarlos. 
Vayamos por partes. Estar6 de acuerdo que 
el n0mero m6s pequefio que se almacena en 
un byte es: 
00000000 

y el mayor: 

11111111 
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Cunto valen en decimal, que al fin y al ca- 
bo, es a Io que estamos acostumbrados? La 
transformaci6n del primero es evidente: 0 es 
0 en cualquier sistema de numeraci6n, asi que 
un trabajo menos. 
En cuanto al otro n0mero, analic6mosle de- 
tenidamente. Coma estamos empleando el sis- 
tema binario, o de base 2, podemos adaptar 
todo Io dicho para el decimal, pero teniendo 
en cuenta ahora la nueva base de numeraci6n. 
Par tanto, cada dos unidades de cualquier or- 
den forman una de arden superior, asi que a 
trabaiar vale? 
Recorando, adem6s, que cada digito tie- 
ne un valor absoluto y otro relativo, que de- 
pende de la posici6n que ocupa, no debe darle 
muchos problemas deducir que 255 es el va- 
lor m6ximo que podemos guardar en un 
byte)). Par si acaso ojee la Figura I y idudas 
fuera! 

Figura uno 

Fn ella vemos c6mo se asocia a cada digito 
sus dos valores, el absoluto y el relativo. Pa- 
ra calcular este 01timo emplearemos siempre 
el mismo m6todo que consiste en multiplicar 
la cifra par la base elevada a la potencia equi- 
valente a la posici6n que ocupa el digito den- 
tro del n0mero que estamos maneiando. 
C6mo determinamos la potencia o expo- 
nente correcto? Muy sencillamente. Tomamos 
coma origen de cifras la que est6 colocada m6s 
a la derecha de la cantidad. Coma todo ori- 
gen que se precie comenzar6 en ((¢ero)) y a 
partir de ahi empezaremos a contar las posi- 
clones (o sus exponentes equivalentes). 
El n0mero binario que tenemos entre ma- 
rlOS es el 
11111111 
Las unidades de primer arden son las indi- 
cadas par la primera cifra empezando par la 
derecha, o sea, 1. El valor decimal equivalente 
ser6: 
1 x 2(2i"0)= 1 
De acuerdo? 2 es la base y 0 el esponente 
que corresponde a las unidades. 
Vayamos con las de segundo grado (segun- 
da cifra comenzando par la derecha). Su va- 
lor absoluto es tambi6n 1, pero el relativo ya 
no es el mismo puesto que ocupa otra posi- 
ci6n. Cu61 es, entonces? 
1x(2tl)=2 
No se olvide de algo muy importante: Es- 
tamos ntentando calcular el nOmero decimal 
equivalente al binario 11111111! 
Podemos seguir viendo el valor relativo -en 
decimal, repetimos- que tiene cada digito bi- 
nario siguiendo este mismo proceso, pero va- 
riando el exponente en cada caso de acuer- 
do con la posici6n que ocupa. 
8 ,,cRo.o 

Par eso se Io dejamos a usted, no se enfa- 
de. Si despu6s sumamos todos los valores re- 
lativos obtenidos sacaremos el decimal que 
equivale a nuestro binario y que es, precisa- 
mente, el 255 que dijimos al principio de la his- 
toria "Verdad que no supone mucha dificul- 
.8 
tad, aparte de los c61culos? 
De todas formas, el Basic del Amstrad ya 
habia previsto queen alguna ocasi6n tendria- 
mosque realizar alguna transformaci6n de es- 
te tipo. Y para ella nos permite utilizar un sen- 
cilia truquito que par si solo nos ahorra tra- 
bajo. gEs el binario 11111111 del que quere- 
mos saber su equivalente decimal? Pues escri- 
ba: 
PRINT &Xltlt1111 
yen la pantalla has aparece el 255 que astuo 
tamente and6bamos buscando. 
&X es un prefijo que indica al Amstrad que 
Io que va detr6s es una cantidad o constante 
binaria. Y 61 asi Io interpreta y par eso hate 
internamente la transformaci6n a decimal y la 
visualiza par media de la instrucci6n PRINT. 
Pruebe a calcular el equivalente de algOn que 
otro binario m6s y le aseguramos que puede 
fiarse de las respuestas que le va dando el or- 
denador. 
Adem6s disponemos de otra funci6n que nos 
permitir6 hacer todo Io contrario: transformar 
un n0mero decimal a binaro. O m6s exacta- 
mente, genera una cadena de caracteres bi- 
narios -ceros y unos- que representan el va- 
lor de un ngmero decimal. 
BINSndmero, cifras) 
produce una constante alfanum6rica de tan- 
tos caracteres coma indique ¢ifras)) que 
es equivalente al n0mero binario obtenido a 
partir del decimal nmero)). 
PRINT BINS255,) 
visualizar6 los 8 digitos binarios que se corres- 
ponden con el n0mero decimal 255. 
PRINT 
har( Io mismo, pero esta vez con el 98, y de- 
volviendo una cadena de seis caracteres. 
Si el contenido de (¢ffra$ no se corres- 
ponde con el n0mero de caracteres necesa- 
rios para nuestra transformaci6n no hay nin- 
ggn problema. Si es mayor, el ordenador de- 
cide completar con ceros par la izquierda has- 
ta Ilegar alas especificadas. Cuando sea me- 
nor no Io vamos a notar. El mstrad hace 
que la expresi6n resultante contenga todos los 
digitos necesarios, iEs maravilloso! 
Le animamos a que b.aga todas las pruebas 
imaginables de esta funci6n dando a los dos 
par6metros, n0mero) y cifras, distintos va- 
lores para comprobar hasta d6nde es v61ida 
la funci6n y yea los limites que pueden alcan- 
zar. 
No pase par alto alga muy importante. La 
funci6n BINS produce una cadena de carac- 
teres, luego con ella no podremos realizar nino 
guna operaci6n aritm6tica reservada para los 
n0meros, aunque el resultado de aplicar BINS 

tenga toda la apariencia de serlo. Si no, in- 
tente hacer: 
PRINT BINS(3,4) x BINS(7,4) 
y, en lugar del 21 que esperamos, el Ams- 
trod nos obsequiar6 con un mensaje de error. 

De 0 a 255 

Pero volvamos a nuestra memoria. Acaba- 
mos de comprobar que un ((byte)) (recuer- 
de Io que es) puede contener n0meros com- 
prendidos entre 0 y 255 en decimal o, Io que 
es Io mismo, combinaciones de unos y ceros 
comprendidos entre 00000000 y 11111111. 
'Ya tenemos fijada una de las caracteristicas 
I . 
de un byte: su ((¢ontemdo)). 
La otra era su posici6n o direcci6n. La me- 
maria est6 organizada coma una serie lineal 
de direcciones de un modo semejante a una 
largo avenida numerada. Qui6n o c6mo se 
fija la cantidad) de direcciones que tiene la 
memoria de un ordenador? 
Es bastante evidente pensar que sus carac- 
teristicas infernos ser6n los que nos Io deter- 
minen. La Unidad Central de Proceso toma la 
posici6n donde se encuentra un data de un 
((l,gar)) reservado compuesto par 16 bits (2 
bytes) que se llama ((regJstro de dire(¢io- 
Y otra vez estamos en las mismas: los valo- 
res extremos que este registro puede almace- 
nar. Pero ahora disponemos de alguna herra- 
mienta que has facilitar6 el trabajo. Escriba: 
PRINT &X0000000000000000 
y sabremos justamente el limite inferior: 0. Era 
muy evidente. Luego la primera posici6n de 
la memoria que el microprocesador del Am.:- 
trad puede ((direccionar)) es la O. 

l +2+ 4+8 ÷ 16+32+64 + 125-255 

I O 

Ix2[O-I 
Ix2.2 4 >o 
I x2L3=8 
lx24-16  
1 x21 -32 
Ix216-64 
Ix217 128 

FIGURA I: CONVERSION BINARIO.DECINIAb 



Lo que ya no est6 tan clara es la m6xima 
direcci6n a la que puede acceder,/,verdad? 
Ser6 la 
1111111111111111 
si, 16 unos. iQu6 cantidad m6s grande! 65535 
es la posici6n m6s alta de un byte a la que CPU 
puede Ilegar par los m6todos habituales de di- 
reccionamiento. 
Si quiere comprobarlo, teclee: 
PRINT BINS(65535, 
y ver6 que no le mentimos. Aparecen en la 
pantalla los 16 unos. 
Quiere decir esto que nuestro ordenador 
tiene una memoria RAM de 65535 bytes? No, 
solamente que el Amstrad puede acceder 
directamente a datos que se encuentren en di- 
recciones comprendidas entre la 0 y la 65535. 
Nada m6s. 
,COal es, entonces, la capacidad real de la 
memoria? Tomaremos coma unidad de medi- 
da el Kbyte: las Ks que todos hemos oido al- 
guna vez. Pero, cu6ntos bytes tiene un K? El 
c61culo es elemental: 
1K=2I'10 bytes 

Asi que la capacidad de cualquier ordena- 
dor ser6 el resultado de dividir el nOmero de 
bytes que posee entre 1024 (2tlO) y no dar6 
los conocidos Ks de los que podemos dispo- 
her. 
0 sea: 

1 K = 1024 bytes 
Multiplique esta cantidad par el nOmero de 
K que tiene su ordenador y obtendr6 la gran 
cantidad de bytes, o conjuntos de ocho bits que 
Ilenan su memoria central. 
Teclee ahora: 
PRINT 65535+1/1024 
y, qu le aparece en la pantalla? Pues justa- 
mente los 64 K a los que puede acceder di- 
rectamente el microprocesador del que est6 
equipado el Amstrad. Eso no quiere decir 
que s61o tenga 64 K de capacidad sino que 
para Ilegar a direcciones superiores a la 
65535, utilizar6 otros m6todos que de momen- 
ta dejaremos a un lado. Piense que hay too- 
delos de 64, 128, 256 y 512 K de memoria 
RAM. 

Acerca del POKE 

Buena, ya sabemos mucho acerca de la me- 
maria del Amstracl. Sus bytes.s61o pueden 
contener valores comprendidos entre 0 y 255 
y ocupar una direcci6n que oscila entre 0 y 
65535. Lo que no sabemos todavia es c6mo 
introducir un valor en una determinada posi- 
ci6n, o,/,no es as(? 
POKE direcci6n,valor 
es una arden que escribe el valor almacena- 

18 R PROGRAMA ! 
28 ON ERROR GOTO 188 
3@ WINDOW #I ,I ,48,4,22 
48 WINDOW #2,148,2424 
58 WIND 
6 CLS 
@ PRINT'DIRECCI' 'C]DO' 
8@ PRI ...........  ........... 

9@ WHILE -I 
l@B INPUT #2,'DIRECCI (99999-FIN) 
: ',direccion 
II@ IF direction(8 OR direction)65535 
TH canal=2:ERROR 33 
128 INPUT #3,'CONTENIDO: 'contenldo 
138 IF contenido(@ OR contenido}255 T 
HEN canal=3:ERROR 34 
148 POKE direccion,contenido 
158 PRINT #l,direccion,contenido 
168 CLS #2:CLS #3 
178 WEND 
188 R RUTI TTIENT'O DE ERROR 
198 IF direccion=99999 THEN EblD 
288 CLS #canal 
218 IF ERR=33 TH PRINT #2,'DIRECCIO 
N INCORRECTA':GOSUB 238:RESLIME 
22@ IF ERR=-34 THEN PRIhrT #3'TO INC 
ORRECTO':GOSUB 238:RESE 
238 R RUTI DE REI'ARDO 
248 FOR i=8 TO IB88:NEX'[ 
25B CLS #canal 
26@ RETU 

do en <valor en Io direcci6n indicada par di- 
recci6n>. 
((POKE> significa meter, introducir y permi- 
te escribir en una celdilla de memoria (o byte) 
un valor comprendido entre 0 y 255. Anterior- 
mente ya indicamos que este valor puede re- 
presentar un dab, una instrucci6n o un carac- 
ter Ascii. 
Par ejemplo: 
POKE 42321,69 
est6 colocando en el byte situado en la posi- 

ci6n 42321 la letra E, que es el caracter que 
corresponde al c6digo Ascii 69. 
Par media de esta instrucci6n podemos con- 
seguir que el ordenador realice las cosas m6s 
inverosimiles: iluminar la pantalla, generar, 
ruido, etc... $61o necesitamos conocer la di- 
recci6n y el valor exacto que queremos intro- 
ducir. De momenta nos conformaremos con ir 
metiendo en direcciones cualesquiera los 
valores que se nos ocurran: puede suceder 
hasta que el ordenador se canse y se pare. 
Pero no hay cuidado, Io desenchufamos y 
punto, i A empezar de nuevo! 
Una pregunta m6s. C6mo ha de ser la me- 
maria sabre la que vamos a modificar el con- 
tenido de un byte? La memoria ROM es de s61o 
lectura asi que de ella s61o podemos sacar in- 
formaci6n y, par tanto, no podemos almace- 
nar nada alli. La instrucci6n POKE no la cau- 
sa ningOn efecto, luego queda descartada. 
La RAM es una memoria de lectura y escri- 
tura, pues ya Io tenemos. En sus bytes no s61o 
podremos husmear para vet qu6 se guarda 
alli, sino que adems tenemos la posibilidad 
de cambiar el valor de los dabs que contie- 
hen. POKE es la Ilave maestra para hacerlo. 
Recuerde: iS61o podemos emplear la senten- 
cia POKE para modificar direcciones de la me- 
maria RAM. Con la ROM no podemos ha- 
cer nada! 
Bien, le dejamos con un sencillo programi- 
ta que le permitir6 variar Io que hay en cual- 
quier posici6n comprendida entre 0 y 65535. 
El ordenador no nos permitir6 poner coma pa- 
r6metros de POKE valores que se salgan de 
los m6rgenes establecidos. Si teclea: 
POKE 70000,3 
le est6 diciendo al Amstrad que almacene 
un tres en la direcci6n 70000. Es posible ha- 
cerlo? 
iEvidentemente, no! El Amstrad s61o pue- 
de acceder a posiciones de memoria que no 
superen la 65535. No es asi? 
Del mismo modo cuando escriba: 
PKE 20000,1000 
est6 queriendo almacenar en el byte 20000 
el ngmero 1000. Pero en 8 bits s61o podemos 
guardar nOmeros comprendidos entre 0 y 255 
asi que la tarea que le estamos encomendan- 
do al Amstrad no se puede realizar. 
En ambos casos nuestro ordenador nos Io 
advertir6 sacando un ((aviso de que alga 
anda real. Asi que jojo! 
Imaginamos que no encontrar6 ningOn pro- 
blema en comprender c6mo funciona. Pues en- 
tonces, imanos a la obra y duro con 1! 
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DEFINIClON DEI 'ECL4DO 

Por Josd Marfa Dfaz 

Si nuestros lectores observan algn clue otro iuego comercial, 
se percatar6n enseguida de que/ la mayor[a de ellos, 
incorporan una sub..r.utina en la que el 6vido jugador elig.e, las 
te¢las que va a utdzar para moverse a tray, s de 1. Analisis 

P 

propone sta. 

ara aquellos desafortuna- 
dos que no posean un joystick, el teclado po- 
see una capital importancia para poder jugar 
a algo. Adem6s, si uno es programador, y le 
gusto hacrselos motu propio, no estaria de 
m6s tenet disponible la famosa rutina de 
prop6sito generab, que le sirva para 
todos. 
Este pequeo programa de an61isis respon- 
de a este enfoque. Partiendo de la suposici6n 
de que se van a usar 4 teclas de movimiento, 
el programa pregunta cu61es son y luego las 

utiliza para mover por la pantalla una <A 
en representaci6n del gr6fico real que se usa- 
rio en un juego. 
Vamos a estudiar brevemente la estructura 
del programa. 
Lineas 10-50: definici6n de variables ge- 
nerales y modo de pantalla. 
Lineas 60-120: Ilamadas a los distintas sub- 
rutinas que configuran el programa. 
Lineas 140-170: lectura de los cuatro di- 
recciones de movimiento, e introducci6n de los 
mismas en la matriz dire¢$. 
Lineas ! 80-220: impresi6n en pantalla de 
los nombres de los cuatro direcciones. 
Lineas 230-300: lectura de los teclas es- 
cogidas (260) y asignaci6n de cada una a un 
elemento de la matriz teclas$ (270). 
Lineas 310-350: se comprueba que el 

usuario est6 satisfecho de las teclas elegidas 
y de que no ha hcbido error. Si ste existiera, 
en el bucle principal, se comprueba el valor de 
la variable resp$ (I/nea 100) y se actOa 
en consecuencia. 
Lineas 360-450: una vez escogidas los re- 
alas, esta subrutina realiza una animaci6n muy 
primitiva para que comprobemos que funcio- 
na. La Onica linea compleja es la 420; el ani- 
damiento de las sentencias IF._HEN...ELSE 
sirve para que s61o se realicen comprobacio- 
nes hasta que se encuentre una igualdad en- 
tre la tecla pulsada y las almacenadas en la 
matriz tecla$h Se sale del bucle cuando 
se pulse la tecla f, de fin. 
Esta rutina, eliminidas los sentencias REM y 
con nombres de variables m6s cortos, ocupa- 
r6 poca memoria y serg de gran utilidad. 

re(i%) 
 , izuierda 
 ,derecha. s' 
art iba?' ' 
FOR i'/t O ndato/. 
LoE 15lg+i'/.:El dire 
26 res IHEIF resp" 
$ yO3E 26 + 
295 H 
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ONIMAG 86 
T, ,, LA IIVIAGEN 
Y L $ONID 
Detrs de coda orticulo, de coda texto que se pub#ca, siempre hay uno historio, uno 
ancdoto que par Io general siempre queda entre los miembros de la redocci6n v aue 
alg5n d/a, aunque slo sea par divertirnos un poco, acabaremos publicando. $'iri 
embargo, entre estos historias tambin existen leyendas negras. 

La edici6n de este 
afio de Sonimag, a menos a priori, 
resultaba m6s que interesante. Asi 
clue, movidos por el noble fin de in- 
formarnos para informar, cogimos 
nuestros b6rtulos y a Barcelona. 
Nuestro primer error: contamos con 
IBERIA, y me explico. Una vez reali- 
zado el reportaje, despu6s de dos 
dias de trasiego, m6s de 300 fotos 
disparadas y tres pares de alparga- 
tas gastadas contra el suelo del pa- 
bell6n cuatro del Palacio de Congre- 
sos, embarcamos nuestro equipaje 
en uno de los pjaros de hierro de 
la insigne empresa que surca nues- 
tros cielos. A la Ilegada a Madrid la 
sorpresa: iel equipa e habia desapa- 
recido! Nuestra persecuci6n conti- 
nua durante dos semanas, a trav6s 
de todo el personal de IBERIA resul- 
t6 infructuosa; explicamos la impor- 
tancia del contenido, hablamos con 
distintos aeropuertos de Espafia, pe- 
ro nada. La respuesta era siempre la 
misma. 

1 2 ','C0H088 AMSTRAD 

Nuestras Oltimas noticias sobre la 
maleta viaiera confirmaban su pre- 
sencia en el muelle de carga del 
aeropuerto de Palma. Reenviada a 
Madrid volvi6 a perderse misteriosa- 
mente y ahora puede encontrarse en 
Zurich, en Pekin, o en Tahilandia, 
jl6stima no haber estado dentro! 
AI margen de ineptitudes, ineptos 
o ineficacias, la edici6n 86 del Soni- 
mag ha venido a confirmar que las 
cosas, en Espafia pueden hacerse 
bien; s61o hacen falta dos cosas: or- 
ganizaci6n y esfuerzo. 
El primer contacto con el Sonimag 
fue decepcionante. Tras de subir los 
escalones de tres en tres hasta el ni- 
vel 10, donde se encontraba el stand 
del AMSTRAD nos encontramos con 
que el nuevo PC de la compafiia de 
Sugar no habia Ilegado a Espaha. 
Despu6s de haber superado el con- 

siderable trago que nos supuso esta 
ausencia, comenzamos nuestro pa- 
seo por toda la feria en busca de m6s 
novedades. 
La estrella de la feria, no olvide- 
mos que SONIMAG se concibi6 pa- 
ra la imagen y el sonido, fue el 
Compact-Disc. Numerosos fabrican- 
tes de HIFI se han lanzado sobre es- 
te nuevo reto en busca del <<elixir del 
sonido)). 
Llevado a nuestro campo, el de los 
ordenadores, esta revoluci6n en la 
grabaci6n del sonido aporta, como 
ya Io hiciera el cassette, un potente 
impulso en el almacenamiento de in- 
formaci6n. 
Entre estos equipos es de destacar 



' , Sonl 

el adoptado como estandar bajo tc- 
nica CD-1, que ofrece la posibilidad 
de albergar en su interior im6genes, 
sonidos e informaci6n. El siguiente 
cuadro ofrece un resumen de las po- 
sibilidades tanto en imagen, texto y 
sonido. 

FORMATO FI$1CO 
Mem0ria: 650 megabytes. 
Vel0ddad de lectura: 75 bl0c/sec. 
Bloque: 2.352 bytes. 
Subindice: 8 bytes. 

INFORMACION ALMACENABLE 
Informaci6n en audio y datos de ordena- 
do/'. 

AUDIO canal 
CD-Digital audio Estere0 1 
MOsica alta fidelidad 2 y 4 
M0sica fidelidad media 4 y 8 
Die, logo 8 y 16 
Duraci6n por canal: 70 minutos. 

VIDEO 
Res01uci6n de referencia. 768 x 560 

El Compact Disc Interactivo es aun 
una t6cnica en sus inicios. Sin embar- 
go, y dada la vertiginosa evoluci6n 
de la tecnologia, no seria de extra- 
bar que dentro de poco, de muy po- 
co, la televisi6n, la cadena de m0si- 
ca y el ordenador queden fundidos 
en un mismo macroequipo, que to- 
do Io sabe y todo Io dice. Es Io que 
verdaderamente podriamos conside- 
rar como FUTURO. Las primeras 
aportaciones de esta tecnologia, en 
la que la cabeza de lectura se trans- 
forma en un haz Icser, han comen- 
zado a ofrecer sus frutos y prometen 
entrar con fuerza en el mercado. 
Por el momento ya se estcn comer- 
cializando los primeros CD-ROM 
(Compact Disc Read Only) con una 
capacidad que oscila entre los 500 
y los 1.000 megas, iasombroso! $6- 
Io un pequefio problema, al menos 
Door el momento, de estos discos: s6- 
se puede leer, el escribir resulta 
demasiado costoso para el usuario 
medio y el borrar es imposible. 
Siguiendo en el campo de la HIFI, 
tuvimos ocasi6n de observar la nue- 
va linea de productos de bajo pre- 
cio. En este terreno son de destacar 
dos compafiias, INVESTRONICA y 
AMSTRAD, si leyeron bien. 
La entrada de Sugar en este nue- 
vo campo se realiza como ya hicie- 
ra en el terreno de los ordenadores, 
precios de risa para productos de 
gran calidad. 
La gama de equipos presentada 
por Amstrad, va desde una minica- 
dena con amplificador, sintonizador, 
plato y idob/e pletina!, a un precio 
de 29.000 pesetas hasta otro con 
compact disc por algo m6s de 85.000 
pesetas. 
La otra gran estrella de la feria rue 
la televisi6n via satlite, que seg0n 
todos los indicios va a constituir el 
plato fuerte de la alta tecnologia du- 
rante las pr6ximas navidades. 
Nuevos equipos con un costo bas- 
tante mcs bajo al de las primeras an- 
tenas, prometen Ilevar la televisi6n 
europea hasta los hogares m6's moo 
destos, t6ngase en cuenta que con 
una antena son muchos las vecinos 
que pueden disfrutar de la 
TV via satlite. Entre 
todos estos equipos es 
de destacar el distri- 
buido por Microbyte, I 
con un costo total de  
375.000 pesetas, y 
que ofrece la posibili- 
dad de seleccionar 
cualquiera de los 12 
canales que emite el 
TELESAT. 
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Y de inform6tica, ;.qua? 

A parte de la comentada ausencia 
del PC de Amstrad, tuvimos la posi- 
bilidad de observar una marcada 
tendencia PC, en los nuevos mode- 
los del mercado. AI otro lado de los 
increibles AMIGA de Commodore 
y 520 ST de ATARI, cuya presencia 
no acaba de cuajar en el mercado, 
el sector parece agarrarse al compa- 
tible est6ndar de IBM, eso si, cada 
vez con mayores prestaciones, me- 
jores precios, y en el caso de Ams- 
trad, incorporando un sistema opeo 
rativo, el GEM, que quita el hipo. 
En cuesti6n de software, al menos 
para Amstrad, estaban todos. Dro- 
soft con sus programas baratos y ca 



da vez 
con m6s ca- 
lidad. Erbe 
con un stand hi- 
perfuturista y una 
enormidad de monito- 
res donde disfrutar con sus 
juegos. Mindgames con tres nuevos 
juegos importados para los CPC, 
Glass, Souls of darkon y Core. As/co- 
mo Software Center que aparte de 
su gama de productos para Amstrad 
presentaba software de fabricaci6n 
propia para el AMIGA de Commo- 
dore. 
A nivel de equipos dom6sticos, la 
presentaci6n del nuevo Spectrum 
2, primer equipo desarrollado por 
ckir, tras la compra de la marco 
por porte de Amstrad, constituia el 
principal atractivo de los microjuga- 
nes. La nueva m6quina que como in- 
novaci6n fundamental, respecto a 
sus antecesores, presenta la incorpo- 
raci6n de un teclado absolutamente 
profesional, un cassette, y salida de 
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joystick, tiene como mayor virtud el 
Ieoder aprovechar casi todo el exce- 
nte sottware diseado para el po- 
pular Spectrum 48. 

Nuevas iniciativas 

Especialmente interesante resulta 
la iniciativa presentadapor Idealo- 
gic, para el desarrollo del lenguaje 
Logo. Durante el presente ao han 
trabajado en la creaci6n de aulas in- 
formaticas dentro del ambicioso pro- 
yecto bautizado como Centre Logo 
que culminar6 con la realizaci6n de 
una maqueta urbana, donde todos 
sus elementos estar6n controlados 
por ordenador. A parte de otras ac- 
tividades, destaca la publicaci6n de 
una revista-folleto dedicada integra- 

trad. En la pr6xima semana estudia- 
remos este fabuloso equipo a fondo 
y analizaremos todas sus posibili- 
dades. 
La ya conocida compaia, pot su 
distribuci6n de Sinclair, INVESTRO- 
NICA, ha sido una de las Oltimas en 
subirse al carro de la compatibilidad 
PC. Durante el trascurso de la Feria, 
fue presentada la nueva serie PC- 
INVES, que con sus distintos mode- 
los pretendia satisfacer a todos los 
usuarios. B6sicamente la serie se 
apoya en dos equipos, el PC-256X y 
el PC-640A, de los que emanan dis- 
tintas configuraciones. 
El PC 256 X est6 basado en el 8088 
de INTEL, Io que, aunque garantiza 
casi totalmente una compatibilidad 
pr6cticamente absoluta con su geme- 
Io de IBM, puede considerarse ya co- 
mo un procesador algo anticuado 
por su velocidad. Particularmente 
prefiero el 80086, aun contando can 
los pequeos problemas que puedan 
surgir con algunos programas que 
corran bajo el est6ndar. 
El modelo PC-640A por el contra- 
rio, con un inte180286, si que puede 
considerarse como un aut6ntico 
monstruo de la inform6tica personal. 
Naturalmente se garantiza la com- 

mente al Logo y que puede conse- 
guirse escribiendo a Ideologic (Eten- 
za 218. Barcelona). 
Entre los productos de hardware, 
resultaba especialmente atractivo el 
convertidor de monitor a TV integra- 
mente diseado y fabricado en Espa- 
a por MHT. Mediante este virtuoso 
aporatito podremos ver cualquier 
programa de televisi6n o pelicula de 
video en el monitor de nuestro Amso 

patibilidad con el IBM PC AT, un 
equipo que revolucion6 la inform6- 
tica en su dia. 

El standar MSX 

La gama MSX, la esperanza japo- 
nesa que intent6 hacerse con el mer- 



cado y que se ha visto doblegada 
ante el avance de AMSTRAD, SIN- 
CLAIR y COMMODORE, presenta- 
ba no obstante un software de alta 
calidad asi como unos perif6ricos de 
una potencia m6s que considerable. 
La especial atenci6n queen este 
standar se est6 contemplando por el 
tratamiento de la imagen, ha alcan- 
zado su punto m6ximo con el digita- 
lizador de video, con resultados es- 
pectaculares en trabajos de creaci6n 
de videos, pantallas de presentaci6n, 
etc... 
De entre el software presentado, 
dos atraian fundamentalmente la 
atenci6n del pOblico. El primero, dis- 
tribuido por Idealogic, era un curso 
completo de aerobic, en el que una 
graciosa mueca va realizando una 
serie de ejercicios con una mOsica de 
fondo que podiamos calificar de sin- 
f6nica. El otro programa, un paque- 
te musical integrado, s61o merece la 
calificaci6n de maravilloso. La dife- 
rencia entre un sintetizador y un MSX 
con un midi y este programa, puede 
considerarse nula. 

Software de gesti6n 

Dentro de software de gesti6n, Io 
me or es pr6cticamente callar, no, no 
es que fuese ma o, sino todo o con- 
trario: era tal el volumen de progra- 
mas, y la profundidad de sus posibi- 
lidades, que harian falta muchas re- 
vistas para exponer todos con deta- 
lie. 
Era curioso observar c6mo este 
software ha sido absorbido prctica- 
mente por AMSTRAD. Numerosas 
casas nacidas alrededor de los CPC 
y del PCW, han desarrollado unas 
aplicaciones que est6n resolviendo la 
pr6ctica totalidad de los problemas 

que surgen en torno a la pequea y 
mediana gesti6n, y, Io que es m6s im- 
portante, con una producci6n inte- 
gramente espaola, iYa era hora! 
La evoluci6n de este software ha 
ido desde las aplicaciones de car6c- 
ter muy general, procesadores de 
texto, bases de datos y ho as de c61- 
culo, hasta la Oltima linea de actua- 
ci6n, provocada por la saturaci6n 
del mercado, cuya caracteristica ge- 
neral es la particularizaci6n de las 
aplicaciones hacia problemas muy 
concretos de la gesti6n. Programas 
para la gesti6n de video clubs, ges- 
tores de efectos comerciales... En re- 
sumen, un software pr6cticamente a 
medida, pero a un precio muy pr6- 

ximo al de las aplicaciones m6s ge- 
nerales. 
Paralelamente a estos programas 
est6n surgiendo paquetes que permi- 
ten al usuario, construir sus propias 
aplicaciones. Estos programas, bas- 
tante dificiles de utilizar, vienen a de- 
mostrar que el nivel informtico est6 
aumentando; naturalmente, no me 
refiero al del profesional de la infor- 
m6tica, sino al ciudadano medio que 
busca en los ordenadores una solu- 
ci6n a sus problemas cotidianos. 

En resumen: Sonimag no ha per- 
dido ni un 6pice de interns para el 
aficionado en cualquiera de los cam- 
pos que cubre, y Io que es mcs im- 
portante, continOa estando al dia. 
L6stima que tanta tecnologia no se 
aproveche ni para encontrar una 
maleta. 



AMINO C" ITICO 

S,oeed Soft 

Son muchas las tareas que realizamos diariamente, de una 
manera rutinaria, y sobre las que nunca nos hemos parado a 
pensar si hay una forma m6s razonable o productlva de 
hacerlo. Aslmismo alguna vez surge algdn proyecto fuera de 
Io comdn y despus de pasar bastante tiempo con 1, 
desgraciadamente, no siempre resulta como nosotros 
esperamos. Todos sabemos que una buena organization es 
fundamental para conseguir el xito en cualquier empresa 
que Ilevemos a cabo. Con mala organization dif/cilmente 
podremos realizar, repartir y coordinar las dlstintas tareas 
de las que se compone el proyecto. 

0 

a 

sta dificultad crete a 
medida que aumenta el n0mero de tareas. 
En fin, no es nuestra intenci6n desanimaros 
ante los distintos proyectos (grandes o peclue- 
#os) que teng6is que realizar a Io largo de 
vuestra vida, sino todo Io contrario; ayuda- 
ros. 
Por eso vamos a daros el nombre a la pala- 
bra clave que har6, dentro de Io posible, que 
vuestros proyectos se realicen de la forma m6s 
racional: PLANIFICAR. 
El primer paso para estudiar un proyecto es 
hacer una red o grafo del rnismo. 
Una red es una representaci6n grafica de 
la actividad o proyecto a realizar. 
En el grafo, cada tarea se representa por 
un circulo, aunque tarnbin hay otros autores 
que Io representan simplemente por un punto 
e incluso por un cuadro. Nosotros utilizaremos 
el circulo. A estos circulos se los denomina nu- 
dos de ta red. 
Los nudos est6n unidos entre si por lineas 
rectas. Si de un nudo sale m6s de una recta 
hacia otros nudos significa que la tarea que 
ese nudo representa ha de terminar para que 
las de los otros nudos empiecen. 
De igual manera si a un nudo Ilegan varias 
lineas, hasta que no terrninen todas las tareas 
que esos nudos representan, no podrernos co- 
menzar esta 01lima. 
N6tese que hernos mencionado llegan 
y salen pero, QUE LINEAS ENTRAN Y 
QUE LINEAS SALEN? 
Es muy sencillo. Tomaremos el convenio de 
que el nudo m6s a la izquierda es el comien- 
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zo e iremos de izquierda a derecha hasta Ile- 
gar al 01tirno nudo, que ser6 el final del pro- 
yecto. 
Si un nudo es condici6n para que otro ern- 
piece se Ilarna antecedente. 
Todos los nudos tienen antecedentes rnenos 
el cornienzo. 
Si un nudo es antecedente de otro este 01ti- 
mo es consecuente del primero. 
Por supuesto, que otro dato indispensable 
es la duraci6n de las tareas. 
Cada tarea tiene una duraci6n determina- 
da que nosotros hernos de saber de anterna- 
no (o estirnarla b rns correctamente clue po- 
darnos) para introducirla en el programa 
cuando ste nos Io pido. 
Esta parte es fundamental porque sobre ella 
se desarrolla el CAMINO CRITICO. 

Qu6 es el camino critieo? 

Imaginemos que tenemos diez tareas dife- 
rentes con un tiernpo rn6xirno de realizaci6n 
para cada una, corno es 16gico unas depen- 
der6n de otras para poder iniciarse. 
Quien todavia no haya cornprendido la fi- 
Iosofia de COMPLANIFICAR pensar6 que es- 
to es una tonteria. Bastar6 con iniciar todas 
las tareas Io antes posible y asi se terminar6 
Io antes posible. 
Bien, esto obviamente es cierto, pero... 
Supongamos que somos ingenieros de una 
compaia y nos mandan construir un puente 
en el rninimo tiempo posible y, esto es irnpor- 
tante, con el minimo coste. Supongamos tam- 
bin que en determinada fase de la construc- 
ci6n tenernos que traer unas estructuras des- 
de una ciudad distante de la que nos encon- 
trarnos y que esas estructuras deben perma- 
necer en su transporte especial hasta el rno- 
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mento de su colocaci6n, por un equipo tam- 
bin especializado. 
Si iniciamos todas las tareas Io antes posi- 
ble probablemente nos suceder6 que los es- 
tructuras, el cami6n que las transporta y el 
equipo especiGzado en colocarlas estn es- 
perando varios dias hasta que finalicen las ta- 
reas precedentes, ya que a ellos tambin los 
hemos [lamado Io antes posible. Pot supues- 
to, el transportista y el equipo de colocaci6n 
cobran todos estos dias aunque no trabajen, 
con Io que no se puede decir que hater esto 
sea muy rentable para nuestro proyecto. 
Se trata, pues, de conocer los tareas o nu- 
dos donde debamos poner el m6ximo esfuer- 
zo en acobar a tiempo para que el proyecto 
termine en un plazo fijo. En los dem6s tareas 
nos interesar6 saber el margen de varianza 
o tardanza que tenemos sin que ello afecte a 
la finalizaci6n del proyecto en el plazo pre- 
visto. Este margen de tardanza se denomina 
HOLGURA en la terminologia PERT (Tgcnica 
de Revisi6n y Evaluaci6n de Proyedos). 
El programa calcula tres %os de holgura; 
la HOLGURA INTERFERENTE, la HOLGURA 
INDEPENDIENTE, ,/la HOLGURA TOTAL. 
Las dos primeras son el resultado de reco- 
rrer la red desde el primer nudo hasta el Olti- 
mo y al contrario, y hallar unas holguras es- 
pecificas de cada actividad. No queremos pro- 
fundizar mucho en los mecanismos en los cua- 
les se basan los c61culos de las holguras ni en 
el significado tangible de los dos primeras por- 
que nos Ilevaria bastante tiempo y desde lue- 
go se necesitarian bastantes m6s p6ginas de 
las que disponemos. 
Por otra parte, Io queen realidad le intere- 
sa conocer al usuario del programa es la hol- 
gura topoi y el camino critico. Quien desee pro- 
fundizar ms en el tema tiene a su disposici6n 
una variada gama de libros sobre el mismo 
en cualquier libreria tcnica. La holgura total 
nos da el retraso que puede tener una tarea 
sin afectar a las demgs en la conclusi6n del 
proyecto. 
Si calculamos las fechas primera y Oltima 
(osea la fedm de em#iece ms pronto y la fe- 
clm de empiece rods tard/a posible) de todos 
los nudos de un proyecto se hallarg al menos 
un camino en el cual los duraciones de ambas 
sean iguales para cada uno de los nudos que 
ese camino recorre en nuestra red. Ese es pre- 
cisamente el Ilamado camino critico. 
La duraci6n de todas las tareas del camino 
cfitico es igua} a la duraci6n total del proyec- 
to y cuaJquier retraso de una de 41as provo- 
cars un retraso en el proyecto. 
En cuanto al manejo del programa es muy 
simple yen todo momento podis acceder al 
menO principal que os muestra todas las op- 
ciones disponibles en el mismo. 
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20 REM 
3 REM 
40 REM 
50 REM 
60 REM 
70 REM 
$0 REM 
90 REN 
108 REM 
110 REM 
130 REM 
140 REN MICROHOBBY AMSTRAD 
158 REM 
160 REId 
170 REM *************************** 
180 MODE 2:LOCATE 1,12:PRINT'SI QU[ 
ERES UER LAS INSTRUCCIONE PULSA -I- 
.CUALQUIER OTRA TECLA PARA COMENZAR 

CAHINO CRITICO 
POR 
SPEED SOFT 
PARA 

190 AS UPPER$(INKEY$) 
200 IF AS='' THEN 190 
210 IF A$-"I' THEN GOSUB 5420 
220 MODE I:PEN I 
230 WINDOWW2,1,40,23,25:BORDER 4:CL 
S 
240 DIM matriz(20,31),nomb$(20),com 
$(208),coe$(20):n1=e:DEG 
250 mp-6:mm-4:mr=4:md 5 
260 DIN mu$(MP),mp$(mp),mm$(MM),md$ 
(ND),mP$(HR) 
270 GOSUB 4980 
280 CL$=CLS #2:PRINT'basic 1.1' :NEW 
290 : 
300 REM satyr 
310 : 
320 saI-e:RETURN 
a30 REM salr del programa 
340 : 
350 saII-O:RETURN 
360 : 
370 REM CALCULAR 
380 : 
390 matrz(l,23)-O:matriz(l,24)--mat 
rz(l,31) 
400 n2=l:nS=O 
410 WHILE n2<nl 
420 FOR i-2 TO nl 
430 n3=O:IF matrz(,24>(>8 THEN GO 
TO 580 
440 FOR J-1 TO nl 
450 IF matrz(i,J)=1 THEN nS-nS+1 
460 NEXT 
470 n4 O:IF nSln2 THEN GOTD 580 
480 FOR J 1 TO nl 
490 IF matrlz(,J)=l AND matriz(J,2 
4)(>0 THEN n4-n4+l 
500 NEXT 
510 IF n4Kn3 THEN 80TD 580 
520 dis-O 
530 FOR d=l TO nl 
540 IF matriz(i,J)=1 THEN ds1=matr 
iz(J,24) 
550 IF dis<d$1 THEN dis=dsl 
560 NEXT 
570 matrz(l,2S)=dls:atriz(i,24)=d 
is+matriz(i,31):n2=n2+l 
580 NEXT 
590 WEND 
600 N4=0 
610 FOR I-I TO NI 
620 N3=0 
630 FOR J=l TO NI 
640 IF PIATRIZ(J,I)=8 THEN NS=NS+1 
650 NEXT 
660 IF NS=NI THEN N4-1 
670 NEXT 
680 N2=I:NS-0:TRIZ(N4,25>=MATRIZ( 
N4,23):TRIZ(N4,26)-f'tTRIZ(N4,24) 
690 WHILE N2<NI 
700 FOR I=I TO NI 
710 NS=O:IF ItTRIZ(I,26>(>O THEN GO 
TO 870 
720 FOR J=l TO NI 
730 IF HATRIZ(J,I)=I THEN NS=NS+1 
740 NEXT 
750 IF NS>N2 THEN 80T0 870 
760 N4=0 

ABLA 
, E UBRUTINA 

10-170 Inicializaci6n. 
180-230 Salidos. 
250-900 C61culos del progroma. 
910-970 Datos b6sicos del progra- 
mo. 
980-1140 Dibuja nudos. 
1150-1340 Da la posici6n del nudo a 
imprimir. 
1350-1500 Introducir antecedente. 
1510-1710 Dibuja antecedente. 
1720-1790 Controla si se van a intro- 
ducir m6s nudos. 
1800-1950 Comentario. 
1960-2120 Grabar datos. 
2130-2350 Cargar datos. 
2360-2480 Nuevo proyecto. 
2490-2610 Consigue consecuentes. 
2620-2700 Selecciona nudo. 
2710-2780 Cambiar duraci6n. 
2790-2870 Modificar comentario. 
2880-3040 Modificar antecedentes. 
3050-3110 Cambia nombre de un nu- 
do. 
3130-3250 Men0 modificar. 
3270-3380 Imprime men0s. 
3390-3490 Insertar. 
35t0-3620 MenO modificar datos. 
3630-3780 Borra nudo. 
3790-3930 Men0 de resultados. 
3940-4080 Camino critico. 
4080-4500 Visualiza resultados. 
4250-4560 Pausa. 
4580-4780 Diagrama de barras. 
4860-5090 Men0 principal. 
5100-5220 Mueve opciones de los 
men0s. 

770 FOR J-I TO NI 
780 IF MATRI(d,I)=I AND FtTRIZ(J,2 
5)<>g THEN N4=14+I 
790 NEXT 
800 IF NS>N4 THEN 0OT0 870 
810 OlS=8:disl-g 
820 FOR =I TO NI 
830 IF fITRIZ(J,I)=I THEN DISI MATR 
I(J,25):fg=fg+1 
840 IF f g'l THEN dis=disl ELSE IF d 
is(=e OR dis1<DIS THEN dis=diS1 
85g NEXT 
860 NATRIZ(I,26)=DIS:MATRIZ(I,25)=A 
BS(DIS-TRIZ(I,31)):N2=N2+I 
870 NEXT 
8sg WEND 
89g FOR I I TO NI 
908 FtTRIZ(I,27)=ABS(MATRIZ(I,23)-M 
ATRIZ(I,25)) 
91g NEXT 
920 FOR I 2 TO NI 
930 N2=0 
940 FOR d=l TO NI 
950 IF NATRIZ(,J)-I THEN NS=MATRIZ 
(J,23) 
960 IF J-I THEN n2=n3 
970 IF N2>N3 THEN N2 N3 
980 NEXT 
990 IF n2 0 THEN btTRIZ(I,28)=g 

1000 MATRIZ(I,29)=ABS(IbTRIZ(I27) - 
;'iqTRIZ(I,28)) 
1010 NEXT 
1020 RETUIN 
1030 : 
1040 REN datos asico$ 
1050 : 
1060 CLSW2:WHILE INKEY$<>'":WEND 
1070 INPUT#2"iempo de realization 
de la tarea";matriz(nl,Sl) 
1080 INPUT#2,'nombre del nudo'Inob 
$(nl):nonb$(nl)-UPPER$(nonl:(nl)) 
1090 RETURN 
1100 : 
1110 REM OlBUJA NUDOS 
1120 : 
1130 CLS 
1140 FOR i I TO nl 
1150 ME matriz(i,21)÷lS,matrz(, 
22) 
1168 FOR J-O TO 
1170 DRAW matriz(21)+15*COS(),ma 
triz(i,22)÷lS*SIN(J) 
1180 NEXT J 
1190 MO&E matriz(,21)+lS,matriz(i, 
22) 
1200 FOR J-O TO 360 STEP 10 
1210 DRAJ matriz(i,21)÷lO*COS(J),ma 
trz(,22)+le*SIN() 
1220 NEXT J 
1238 HOVER 2,0:IF matriz(i28) 0 AN 
D matrz(i,29)-O THEN FILL 2 ELSE F 
ILL 3 
1240 MOVE matriz(i,21)-S,matriz(i,2 
2)÷8:TAG:PRINT CHR$(64÷i);:TASOFF 
1250 NEXT i 
1260 RETURN 
1278 : 
1288 REH POSICIONA NUD0 
1290 : 
1308 MOVE 0,400:TAG:PRINT CHR$(224) 
:posx=O:posy 400 
1310 mov1=O:mov2=O 
1320 IF INKEY(O)(>-I THEN movl-5:mo 
v2=0 ELSE IF INKE¥(2)()-I THEN movl 
=-5:mov2=O ELSE IF INKEY(1)<)-I THE 
N mov1=O:mov2=5 ELSE IF INKEY(8)<)- 
I THEN movl B:mov2 -5 ELSE IF INKEY 
(18)<)-I THEN RETURN ELSE 80TO 1320 
1338 AX=POSX:AY=POSY 
1340 AX-AX+MOV2:AY-A¥+MOVI 
1350 IF AX>640-32 OR AX<O THEN 
1320 
1368 IF AY>480 OR AY<64 THEN GOT0 1 
320 
1370 CON[e:REM 
I, ira a la 6020 
1388 FOR i-I TO nl 
1390 AXY=SQR((AX-MATRIZ(I21))^2+(A 
Y-FtTRIZ(I,22))^2) 
1400 IF AXe(=96 THEN COND I 
1410 NEXT I 
1428 IF COND I THEN 1340 
1438 MOVE POSX,POSY:TAG:PRINT CHR$( 
12S);:TAGOFF 
1440 POSX-AX:POSY-AY 
1450 MOVE POSXPOSY:TAS:PRINT CHR$( 
224);:TAGOFF 
1460 GOTO 1320 
1478 : 
1480 REM INTRODUCIR ANTECEDENTE 
1490 
1500 NIVEL 
1518 FOR K=I TO NI-I 
1520 MOVE MATRIZ (K,21)-8ItTRIZ 
,22)+8:TAG:PRINT CHR$(224);:TAGOFF 
1530 CLS#2:PRINT#2,"ES ';NONB$(K);  
REQUISITO S/N':PRINT#2:PRINT#2,CHR 
$(64+k);" es la tarea 
1540 E$=UPPER$(INKEY$) 
1550 WHILE E$K>"N" AND e$(>'S' 
1560 E$-UPPER$(INKE¥$) 
1570 WEND 
1560 IF e$-s  OR e$='S THEN matri 
z(n1,K)=l:nivell-matriz(k,O) 
1590 IF nivel1>nivel THEN nivel-niv 
ell 
1600 NEXT  
1618 matriz(nl,30)-nve! 
1620 RETURN 
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1638  
1648 REM DIBUJA ANTECEDENTE 
1658 : 
1668 IF nl<2 THEN RETURN 
1678 FOR I-I TO NI 
1688 
1698 WHILE J<21 
1788 WHILE MATRIZ(I,J)<>8 
1718 AUXI 
1720 AUX3-MATRIZ (I,21>-MATRIZ (AU 
1,21) 
1738 AUXX=PtTRIZ (I,22)-MATRIZ (AUX 
1,22) 
1748 IF AUX2-8 THEN ANGULO-8 ELSE A 
NGULO-ATN(ASS(AUX3/AUX2)> 
1758 IF AUX2< 8 ND AUX3<8 THEN M0V 
E NATRIZ(I,21)÷I5*C08(ANOULO),NATRI 
Z(I,22)+I5*SIN(ANGUL0):DRAW NATRIZ( 
AUXI,21)-IS*SIN(ANOUL0),MATRIZ(AUXI 
,22)-15*C08(ANGUL0) 
1768 IF AUXX>=8 AND AUX3<8 THEN 
E hiATRIZ(I,21)+IS*C08(ANOULO),MATRI 
Z(I,22)-I5*SIN(ANGULO):DRAW MATRI2( 
AUXI,21>-15*SIN(ANGULG),NATRIZ(AU×I 
22)÷15*C08(ANGUL0) 
1770 IF AUX2<=8 AbID AUX3>0 THEN NOV 
E MATRIZ(I,21)-I5*C08(ANOUL0>,MATRI 
Z(I,22)÷15*SIN(ANGUL0):DRAW MATRIZ( 
AUXI,21)+I5*SIN(ANGUL0),MATRIZ(AUXI 
,22)-I5*C08(ANGULO) 
1788 IF AUX2> 8 AND AUX3>8 THEN MOV 
E MATRIZ(I21)-I5*C03(ANGUL0)MATRI 
Z(I,22)-15*SIN(ANGUL0):DRAW MTRIZ( 
AUXI,21)+IS*SIN(GUL0),MATRIZ(AUXI 
,22)÷I5*C08(ANGUL0) 
1798 J-J+l 
1808 WEND 
1810 J-J+I:WEND 
1828 NEXT I 
1838 RETURN 
1848 : 
1858 REM CONTROL DE FIN 
1868 : 
1878 CLS#2:PRINT#2,'Meter mas nudos 
pulsa N menu pulsa 
1888 WHILE INKEY(46)=-I AND INKEY(3 
8)=-i 
1898 WEND 
1900 IF INKEY(46>(>-I THEN OOSU8 25 
1918 IF INKEY(38)<>-I THEN sal=1:RE 
TURN 
1920 
1938 REM introducer comentario 
1948 : 
1958 CLS 
1968 ERASE com$:DIM com$(200) 
1978 CLS:PRINT'COMENTARI0 PARA LA T 
AREA "nomb$(nl):PRINT 
1988 SAL-I:CO I 
1998 bs$=CHR$(127):e$-CHR$(13):RET$ 
CHR$(8) 
2800 WHILE SAL 
2818 I$-INRE¥$:IF IS .... THEN 2818 
2028 IF I$=E$ THEN SAL-8:GOT0 260 
2038 IF I$=880 THEN IF C0-I THEN PR 
INT CHR$(7):OOT0 2060 ELSE CO C0-I: 
COltS(C0) '':PRINT RET$;:PRINT ' ' ;: 
PRINT RET$;:GOT0 2868 
204B PRINT I$|:COM$(C0)=I$:CO=C0+I 
2850 IF C0>=208 THEN SAL=8 
2068 WEND 
2878 RETURN 
2080 REM GRABAR DAT0S 
2098 : • 
2108 IF LEN(P$)<=8 THEN PR$=P$+',DE 
C" ELSE PR$ LEFT(P$8)+',DEC" 
211 CLS:LOCATE 18I0:PRINT'ORABAND 
0 :'PR$ 
212 OPENOUT PR$ 
2138 PRINT#9P$ 
2140 PRINT#9NI 
2158 FOR N=I T8 NI 
2160 PRINT #9,NOMB$(N) 
2170 PRINT#9,Come$(n) 
2180 FOR K-I TO 31 
2198 PRINT CHR$(127); 
2200 PRINT#9,MATRIZ(N,K) 
2210 NEXT 

2220 PRINT:NEXT 
2238 CLOSEOUT 
2248 RETURN 
2250 
226 REM CARGAR DATOS 
2270 : 
2288 CLS:CAT 
2290 LOCATE 10,28:PRINT"NOMSRE DEL 
PROTECT0 
2808 LOCATE 16,22:INPUT 
2310 IF INSTR(pP$,".")(>0 THEN 2388 
2328 PR$-PR+'.DEC":OPENIN PR$ 
2338 INPUT #9,P$ 
2340 CLS:LOCATE INT(LEN{P$>/2),I4:P 
RINT P$ 
2358 LOCATE II,10:PRINT"CARGAND0 PR 
0YECT0' 
2368 INPUT #9,NI 
2370 FOR N=I TO NI 
2380 PRINT CHR$(127); 
2398 INPUT #9NOMS$(N) 
2488 INPUTWcome$(n) 
2418 FOR K I TO 31 
2428 PRINT CHR$(127); 
2438 INPUT#9,MATRIZ(N,K} 
2448 NEXT 
2458 PRINT:NEXT 
2460 CLOSEIN 
2478 RETURN 
248 : 
2498 REM nuevo proyecto 
2588 : 
2510 ERASE matriz,nomb$,com$,come$: 
DIM matriz(XB,31>,nomb$(28),com$(20 
0),come$(20) 
2528 nl=0: CLS:LOCATE 1,18 :INPUT 
HOMBRE DEL PROYECT0 ' ,p$:p$ UPPERS 
(p$) 

I$T' , E ARIABLE$ 

MATRIZ (I,J) Guarda Iosontecedentes 
de coda uno de tal farina 
que el elemento I es ante- 
cedente del J si en esta 
posici6n hay almacenado 
url uno. 
NOMBS (I) Almacena el hombre de I0 
tarea I 
COMS Almacena, car6cter a ca- 
rgcter el comentario de la 
torea en curso. 
COMES (I) En esta matriz se almace- 
na el contenido de COMS 
para su almacenamiento. 
N1 Almacena el nOmero de 
nudos introducidos. 
MP,MPS Opciones det menO prin- 
cipal. 
MM,MMS Opciones del menO de 
modificaciones. 
MD,MDS Opciones del menO de 
modificar dabs. 
MR,MRS Opciones del menO de 
resultados. 
MUS Matriz transitoria para im- 
primir menOs. 
PS Nombre del proyecto. 
SAL Si es 0 vuelve al menO 
principal. 
SAL1 Si es 0 obandona el pro- 
grama. 
CN Opci6n elegida. 

2530 GOSUB 1130 
2540 GOSUB 1388:nl=nl÷l:matriz(nl,2 
I) posx:matriz(nl,22) posy 
2558 GOSUB II30:G03UB I868:GOSUB 15 
2560 GOSUB 1950 
2570 GOSU8 1130 
2588 GOSUB 1668 
2590 GOSUB 1870 
2600 RETURN 
218 : 
2620 REM =ntroducr consecuentes 
2630 : 
2648 n=vel=58 
2658 FOR k=l TO nl-I 
2668 CLS#2:PRINT#2,'Es 
CONSECUENTE s/n :PRINT#2:PRINT#2,C 
HR$(64÷k)I " es la tarea 
2678 eS-UPPER$(INKEY$) 
2680 WHILE e$<>'N AND e$(>S" 
2690 e$=UPPER$(INKEY$) 
2700 WEND 
2718 IF e$= S' THEN matriz(k,nl) 
2720 NEXT 
2730 RETURN 
2740 : 
2758 REM nudo? 
2778 CLS:CLS #2:LOCATE 1,8:INPUT'no 
mbre ha qultar';a$:a$ UPPERS(aS) 
2788 num=8 
2798 FOR i-I TO nl 
2808 IF a$-nomb$(1) THEN num-:-nt 
2810 NEXT 
2820 IF hum-8 THEN CLS#2:PRINT#2'N 
0 EXITE EL NUDO ";a$:80SU8 2740 ELS 
E RETURN 
2830 RETURN 
2848 : 
2858 REM cambar duracon 
2868 : 
2878 GOSUB 2748 
2888 LOCATE 1,12:PRINT "el nudo ";n 
omb$(num);" tene duracon ;matriz 
(hum,31) 
2890 LOCATE 1,14:PRINT "el nudo 
omb$(num):INPUT " debe tenet duraci 
on ",matr=z(num,31) 
2980 LOCATE 1,18:PRINT'el nudo 
mb$(num>;" tiene duration ";matriz( 
num,31) 
2918 GOSUB 4788:RETURN 
2928 
2930 REM modiftcar comentario 
2940 : 
2950 GOSU8 2748:CLS 
2960 ERASE comS:DIM com$(208) 
2978 PRINT comet(hum) 
2980 LOCATE 6,7:PRINT"modificando c 
entaro "nomb$(num) 
299 GOSUB 1988:sol I 
3080 RETURN 
3018 : 
3828 REM modJflca antecedentes 
3838 : 
3040 GOSUB 2748:CLS 
3858 LOCATE II,3:PRINT'BORRO ANTECE 
DENTES * 
3868 FOR =1 TO 20 
3870 matrz(num,i) 
3088 NEXT 
3890 FOR i-I TO 
3180 LOCATE 1,18:PRINT'CLIANT08 ITE 
CEDENTES TIENE EL NUD0 : ;nomb$(nu 
m);:INPUT  ,cl 
3110 IF ci>20 THEN 3188 
3128 numl hum 
3138 FOR  I TO cl 
3140 GOSUB 2740 
3158 matrz(numl,num)=l 
3160 NEXT 
3170 RETURN 
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3188 : 
3198 REM cambiar nombre a un nudo 
3288 : 
3218 GOSUB 2748 
3228 LOCATE 1,12:PRINT 'el nudo "in 
onb$(num);" debe tenet nonbre";:INP 
UT "',nomb$(num):ncnb$(num)=UPPER $( 
nomb$(num)) 
3238 LOCATE 1,18:PRINT'el nudo ahor 
a se llama ";nomb$(num) 
3248 OOSUB 4788:RETURN 
3258 : 
3268 REM menu modificar 
3278 : 
3288 sal-I 
3298 WHILE 
33@8 FOR n-@ TO mm 
3318 mu$(n)=mm$(n) 
3328 NEXT 
3338 lin-9:fl IS:inc=3:buc=mm 
3348 CLS 
3358 GOSU8 339@ 
3368 ON cn 808UB 3798,3548,3668,298 
3378 WEND 
338@ saI=I:RETURN 
3488 REH imprime menus 
3418 : 
3428 LOCATE #2,7,2:PRINT #2,"elige 
opcon con el cursor 
3438 l-LEN(mu$(8)):ps-lin 
3448 LOCATE INT((4@-I)/2),3:PRINT m 
u$(8) 
345@ FOR n=l TO buc 
3468 l=LEN(mu$(n)) 
3478 LOCATE INT((4B-I)/2),ps:PRINT 
mu$(n) 
3488 ps-ps+inc 
349@ NEXT 
358@ ps-ln:cnml 
3518 OOSUB 5298 
3528 RETURN 
3538 : 
354@ REM insertar 
3550 : 
3560 GOSUB 1130 
3578 GOSUB 1308:nl-nl+l:matPz(nl,2 
l)=posx:matriz(nl,22) posy 
358@ GOSUB 1138 
3590 OOSUB 1060 
36@@ @0SUB 1588 
3618 OOSUB 262@ 
3628 GOSUB 1958 
363@ GOSUB 1138 
364@ OOSUB 1668 
3658 RETURN 
3668 : 
367@ REM modificaP datos 
3688 : 
3698 FOR n-g TO md 
3788 mu$(N) md$(N) 
3718 NEXT 
372@ lin-8:fl-16:inc 2:buc-md:sal=l 
:cn-I 
3738 WHILE sal 
3748 CLS 
3758 GOSUB 3398 
3768 ON cn 80SUB 3188,2848,2928,381 
8,298 
3778 WEND 
3788 sal=I:RETURN 
3798 : 
38@8 REM QUITAR NUDO 
3818 
3828 OOSUB 2748 
3838 FOR i-num TO nl 
3848 FOR J-1 TO 31 
3858 IF i<nl THEN matriz(i,J)=matrl 
z(i+l,J) ELSE matriz(i,J)-@" 
3868 NEXT 
387@ IF i<nl THEN nomb$(i)-nomb$(i+ 
I) ELSE nomb$(1) 
3SB@ NEXT 
389@ FOR J I TO 2@ 
39@8 FOR i num TO nl 
3918 IF <nl THEN matniz(J,i)-matr 
z(J,i+l) ELSE matriz(J,i)-@ 
3928 NEXT 
393@ NEXT 
394@ nl-nl-I 
395@ LOCATE 1,18:PRINT"el 'nudo ";aS 

;" ha sido borrado":FOR i I TO 388: 
NEXT 
396@ RETURN 
3978 
398@ REM menu resultados 
3998 : 
4880 FOR I=I TO NI:I'TRIZ(I,23) @:M 
ATRIZ(I,24) @:MATRIZ(I,25)=g:MATRIZ 
(1,26) @:hC, TRIZ(I,27)=e:MATRIZ(I,28 
)-8:MATRIZ(I,29)-G:NEXT 
4818 CLS:CLS #2:LOCATE 3,12:PRINT"E 
SPERE ESTOY CALCULAND0 RESULTADOS' 
4@28 GOSUB 398 
4830 FOR n=@ TO mP 
4848 mu$(N)-mr$(N) 
4858 NEXT 
4868 Iin=9:fl=|8:lnc=3:buc=mr:sal=l 
407@ WHILE 
4888 CLS 
4898 GOSU8 3390 
41@8 0N cn GOSUB 4278,4148,4768,29@ 
4118 WEND 
4128 saI-I:RETURN 
4130 DRAW matriz(i,21)+18*C08(J),ma 
triz(i,22)+18*SIN(J) 
4148 : 
4158 REM camno crtco 
4160 : 
4178 GOSU8 1138 
4188 80SUB 1660 
4198 LOCATE#2,1,1:PRINT#2,"PULSA 
UOLVER AL MENU" 
4208 e$=UPPER$(INKEY$) 
4218 WHILE e$()"N" AND 
4228 FOR i-I TO nl 
4230 LOCATE#2,1,2:PRINT#2,OHR$(i+64 
);" Es el nudo ;nomb$(i) 
424@ FOR J-I TO 388:NEXT J 
4258 NEXT:e$-UPPER$(INKEY$) 
426@ WEND:RETURN 
4278 
4288 REM vsualzar Pesultados 
4298 : 
43@@ CLS:LOCATE 7,1@:PRINT"list amos 
pop impresora {s/n) 
4318 $-UPPER$(INKEY$):IF iS-'' THE 
N 431@ 
4328 IF i$ 'S" THEN impre-I ELSE im 
pre-8 
4338 CLS:im$=STRIN0$(18,'#"):iI$='& 
4348 IF impre THEN FOR k-I TO 8:PRI 
NT#8,CHR$(13):NEXT 
4358 FOR n-I TO nl 
4368 LOCATE 4,2:PRINT'proyecto;STR 
INO$(19,".");p$ 
437@ IF impe THEN PRINT #8,TAB(24) 
;"proyectol ;STRING$(19,'.");p$ 
4388 LOCATE 4,3:PRINT'nudo' ;STRINGS 
(23,l'.');CHR$(64+n) 
439@ IF mpre THEN PRINT #8,TAB(24) 
;"nudo';STRING$(23,'.');CHR$(64+n) 
4488 LOCATE 4,5:PRINT"nombre del nu 
do";STRlNG$(12,".");nomB$(n) 
4418 IF impre THEN PRINT #8,TAB(24) 
;"nombre del nudo' ;STRING$(12'."); 
nomB$(n) 
4428 LOCATE 4,6:PRINTcomienzo';STR 
ING$(19,'.);matii(n23) 
4438 IF impre HEN PRINT #8,TAB(24) 
;'comienzo";STRINO$(19,.");matriz( 
n,23) 
4448 LOCATE 4,7:PRINT"finaI";STRING 
$(22,'.');matPz(n24) 
4458 IF mpre THEN PRINT #8,TAB(24) 
;lfinall ;STRING$(22,".");matriz(n,2 
4) 
4468 LOCATE 4,8:PRINT"duraclon";STR 
ING$(19,".');matriz(n,31) 
4478 IF impre THEN PRINT #8,TAB(24) 
;'duracion";STRING$(19' . );matrz( 
n,31) 
4488 LOCATE 4,18:PRINT"holgura inde 
pendiente';STRING$(6,.")lmatriz(n, 
29) 
4498 IF mpre THEN PRINT #8 
4580 LOCATE 4,11:PRINT'holgura inte 
rferente';STRING$(7,".');matriz(n,2 
8) 
4518 IF impre THEN PRINT #8,TAB(24) 

;"holgura ndependiente ;STRINGS(6, 
. l);matriz(n,29) 
4528 IF impre THEN PRINT #8,TAB(24) 
;"holgura interferente";STRING$(7," 
");matrz(n,2S) 
4538 LOCATE 4,12:PRINT holgura iota 
l;8TRING$(14,'.");matriz(n,27) 
454@ IF impre THEN PRINT #8,TAB(24) 
;"holgura total;STRING$(14,'.');ma 
tPz(n,27) 
455@ IF mpre THEN PRINT #8:PRINT # 
8:PRINT #8,SPC(41);"conentario :':P 
RINT #8:PRINT 
456@ LOCATE 11,16:PRINTcomentaPio ' 
457@ ci$ MID$(come$(n),1,4@) 
458@ c25-MI05(come$(n),41,48) 
459@ c35=MIO$(come$(n),81,48) 
46@@ c45 MID$(come$(n),121,48) 
4618 c55=MID${come$(n),161,48) 
462@ LOCATE 1,17:PRINT comeS(n) 
463@ IF mpre THEN PRINT #8,TAB(2@) 
;cI$:PRINT#B,TAS(2@);c2$:PRINT#@,TA 
B(2@);c3$:PRINT#8,TAB(2@);c4$:PRINT 
#S,TAB(2@);c5 
464@ IF impPe THEN IF n MOO 2-@ THE 
N FOR k=1 TO 16:PRINT#B,CHR$(13):NE 
XT:GOT0 466@ 
465@ IF impre THEN FOR k I TO 6:PRI 
NT#8,CHR$(13):NEXT 
4668 OOSU8 4708 
4678 CLS:NEXT 
4680 IF impre THEN PRINTWB,CHR$(12) 
4690 RETURN 
4788 : 
4718 REM pausa 
4728 
473@ CLS #2:LOCATE #2,5,2:PRINT#2," 
pulsa una tecla papa continuar" 
4748 i$=INKEY$:IF is "" THEN 4748 
4758 RETURN 
4768 : 
4778 REN DIAGRAHA DE 8ARRAS 
4788 : 
4798 CLS:LON 
4888 LOCATE I,I:PRINT"PROYECT0 ";P$ 
4818 LOCATE 1,3:PRINT"NUDOS  
4828 LOCATE 1,4:PRINT"************* 
4838 FOR I-I TO NI 
484@ LONI-NATRIZ(I,24) 
4858 IF LON(LONI THEN L0N LONI 
4868 LOCATE 1,5+I:PRINT LEFT$(NOM8$ 
(I),20) 
487@ LOCATE 28,5+I:PRINT'*" 
4888 NEXT 
4898 LONI=2@/LON 
4988 LI LEN(STR$(LON)) 
4918 LOCATE 2@,3:PRINT"@':LOCATE 48 
-LI,3:PRINT LON 
4928 FOR I-I TO NI 
4938 MOVE INT((28*I6)+MATRIZ(I23)* 
16*LONI),336-16*I:ORAWR 8,-15:DRAWR 
INT(MATRIZ(I,31)*I6*LONI),8:DRAWR 
8,15:DRAWR INT<-I*MATRIZ(I,31)*I6*L 
ON I),@:MOVER 4,-6:FILL 
4948 HOME INT((28*16)÷NATRIZ(I,24)* 
16*LONI),336-16*I:ORAWR 8,-15:ORAWR 
INT(MATRIZ(I,28)*I6*LONI),e:DRAWR 
8,15:DRAWR INT(-I*MATRIZ(I,28)*I8*L 
0NI),@:IF HATRIZ(I,28)>@ THEN HOMER 
4,-6:FILL 2 
4958 HOME INT((28*I6)÷(HATRIZ(I,24) 
+NATRIZ(I,28))*I8*L0I),336-16*I:DR 
AWR @,-15:ORAWR INT(PTRIZ(I,29)*16 
*LONI),8:DRAIR 8,15:DRY,aIR INT(-I*MA 
TRIZ(I,29)*16*LONI),e:IF MATRIZ(I,2 
9)>8 THEN HOMER 4,-6:FILL 
4968 NEXT 
4978 GOSUB 4788:RETURN 
4988 FOR n @ TO mp:READ mp$(n):NET 
4998 FOR n=@ TO md:READ md$(n):NEXT 
58@8 FOR n-Q TO mr:READ mm$(n),mr$( 
n):NEXT 
5818 DATA "menu princ;pal","salir", 
caP', reswltados" 
582@ DATA "modificar datos',"nombre 
nte",'volver al menu principal" 
5@3@ DATA "menu modiicar',menu re 
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sultados' j"quitar nudo"j"ver dato" 
°insertar nudo , camino crtico" m 
odificar datos,'dagrama de barras 
",'uoluer al menu principal' ,"voIve 
r al menu principal' 
5048 : 
5058 REM menu principal 
5868 : 
5878 sa11 
5888 WHILE sall 
5898 FOR n=8 TO mp 
5180 mu$(N)- mp$(n) 
5118 NEXT 
5128 lin-6:fl=16:inc=2:buc mp 
5138 CLS 
5148 GOSU8 3398 
5158 ON cn SOSUB 348,2888,2268,2498 
3258,3978 
5168 WEND 
5178 WHILE INKEY$<)':WE ND 
5180 LOCATE 8,4 
5198 PRINT"si abandonas el programa 
5208 LOCATE 8,6 
5218 PRINT'perderas todos los datos 
5228 LOCATE 9,8 
5238 PRINTcofirma pulsando 
5240 LOCATE 2,18 
5250 PRINT"cualquler otra tecla rue 
lye al menu 
5260 iSmUPPER$(INKEY$):IF iS-'" THE 
N 5268 
5278 IF i$<>'S' THEN sal I:80T0 508 
8 
5280 saI-I:RETURN 
5298 : 
5388 REM mueve cursor pot menu 
5318 
5328 PEN 3:LOCATE INT(<40-LEN(mu$(c 
n)))/2),ps:PRINT mu$(CN) 
5338 WHILE 
5348 IF ps<lin THEN ps-fl:cn buc 
5358 IF ps>fl THEN ps=ln:cn I 
5368 LOCATE INT((48-LEN(mu$(cn)))/2 
),ps:PRINT mu$(CN) 
5378 IF INKEY(8)<>-I THEN PEN I:LOC 
ATE INT((48-LEN(mu$(cn)))/2),ps:PRI 
NT mu$(CN):ps s-inc:cn=cn-l:PEN 3 
5388 IF INKEY(2)<>-I THEN PEN I:LOC 
ATE I NT((48-LEN(mu$(cn)))/2),ps:PRI 
NT mu$(CN):ps=p=+inc:cn =cn+I:PEN 
5398 WEND:PEN I 
5480 WHILE INKEY$<>'":WEND 
5418 RETURN 
5420 CLS 
5438 MODE 2 
5440 WINDOW #2,1$823,24 
5450 LOCATE 6,12:a$ EN EL PR08RAA 
APARECERA UN MENU PRINCIPAL CON LA 
S DISTINTAS 0PCIONES. 
EXAMINEMOS CADA UNA DE E 
LLAS  
5468 GOSUB 5640:CL$ 
5478 LOCATE 27,1:AS-'0PCION INICIAL 
IZAR':GOSU8 5648:PRINT 
5488 A$-"EN ESTA OPCION SE INTRODUC 
EN LOS DATOS PARA HALLAR EL CAMIN0 
CRITIC0.EL 0RDENA -DOR N0S PREGUNTA 
RA P0R EL NOMBRE DE CADA TAREA(NUD0 
) Y SU OURACION.TAMBIEN N0S DIRA S 
I LOS NUDOS AhlTERIORES SON ANTECEDE 
NTES OEL NUDO EN OUE ESTAMOS. ' :GOS 
UB 5640 
5498 PRINT:A$='RECUERDA QUE SOLO SO 
N ANTECEDENTES LOS ULTIMOS NUDOS D 
E LOS QUE DEPENDA. AUNQUEESTOS ULTI 
M0S DEPENDAN DE ALGUN PRIMER0,CUAND 
0 EL 0RDENADOR N0S PREGLgTE UNO POR 
IJ0 SI SON ANTECEDENTES SOLO CONSID 
ERAREMOS TALES LOS QUE SE UNEN DIRE 
CTAMENTE" 
5588 GOSU8 5640:PRINT 
5518 A$="APARECERA EN LA pANTALLA 
 SIMBOL0 QUE PUEDES MOVER CON LAS 
TECLAS CEL CURSOR CUAND0 PULSES [R 
ETURN] EL 0RDENADOR DIBUJARA UN MUD 
0':GOSU8 5640:PRINT 
5520 A$='SI VES QUE EL MUIEC0 SE PA 
RA NO TE IMPACIENTES0 ESTA CALCULA 

NO0 DONDE SE PUEDE PONER SIN ESTROP 
EAR EL DIBUJ0.CUAND0 DE EL SALTO PU 
EDES CONTINUAR.':GOSUB 5640:PRINT 
5538 A$="POR ULTIMO, PUEDES ASIGNAR 
UN COMENTARI0 A CADA TAREA Sl L0 D 
ESEAS.":GOSUB 5640 
5548 CLS:LOCATE 38,1:AS=' 0PCION MOO 
IFICAR' :GOSUB 5640:PRINT 
5558 a$-"CON ESTA 0PCION PUEDES NOD 
IFICAR CUALOUIERA DE LOS DATOS QUE 
HAS INTRODUCID0.' :GOSU8 5648 :PRINT 
5568 A$-'POSEES UN COMPLET0 SUBNENU 
DE MODIFICACION PARA ELEOIR LA OPC 
ION.":GOSUB 5648:PRINT 
5570 LOCATE 37,10 :AS='GRASAR":GOSUB 
5640 :PRINT :AS-' ESTA 0PCION GUARDA 
EN DISCO TODOS LOS DATOS DEL PROYE 
CT0 PARA CARGARLOS EN EL MOMENT0 Q 
UE SE DESEE SIN TENER QUE TECLEARL0 
S DE NUEVO. EL ORDENADOR LOS SALVA 
CON EL NOMBRE DEL PROYECT0 Y LA EX 
TENSI ON. DE 
5588 GOSUB 5648:CLS 
5598 LOCATE 34,1 :AS-"RESULTADOS':G0 
SUB 5648 :PRINT 
5608 A$ 'EL SUSMENU PERMITE ELEGIR 
ENTRE VER DATOS,DIAGRAMA DE BARRA 
S 0 CAHIN0 CRITIC0.SI PULSAS VER 
DATOS SALDRAN EN PANTALLA CADA UNO 
DE LOS DATOS CALCULADOS PARA LOS DI 
FERENTES NUDOS. ":GOSUB 5648 :PRINT 
5610 A$="EL DIAGRAMA DE BARRAS TE 
MUESTRA GRAFICAMENTE LAS TAREAS QUE 
NO PERTENECEN AL CAMIN0 CRITIC0 
CON LA HOLGURA DE CADA UNA DE ELL 
AS REPRESENTADA EN ROJ0.TODASLAS TA 
REAS TOTALMENTE AMARILLAS SON CRIT 
ICAS.' :GOSIJB 5640 :PRINT 
5620 A$="POR ULTIMO SI ELIGES VER 
EL CAMIN0 CRITIC0,TE APARECERA DE 
NUEV0 LA RED QUE TUHAS CREADO C0 L 
0S NUDOS DEL CAMIN0 CRITIC0 EN AZUL 
Y LOS DUE NO PERTENECEN A ELEN R0J 
0.' :GOSU8 5648 
5638 GOT0 5718:CLS 
5648 FOR N-I TO LEN(A$ 
5658 Z INT(RND*5g0):V INT(RND*II+5) 
:SOUND I,Z,I,V 
5660 PRINT MID$(A$,N,I);:NEXT N:PRI 
NT" ' 
5678 CLS#2:LOCATE #2,19,24:PRINT #2 
,' PULSE CUALQUIER TECLA PARA CONTIN 
LIAR' 
5688 E$- INKEY$ 
5698 IF INKEY$=' ' THEN 5690 
5788 RETURN 
5718 CLS : CLS#2 
5728 LOCATE 1512:PRINT"VAMOS AVER 
UN EJEMPLO DE COM0 HACER UNA RED': 
AS-"":GOSU8 5648:CLS 
5738 AS-' SUPONGAMOS QUE ES USTED EL 
PRODUCTOR DE UNA PELICULA. USTED D 
ESEA VERLA TERMINA DA CUANT0 ANTES 
PUES CADA DIA QUE PASA LE CUESTA DI 
NER0":GOSU8 5648 
5748 PRINT 
5758 A$-"SUPONOA QUE LAS TAREAS OUE 
USTED TIENE QUE REALIZAR PARA COMP 
LETAR LA PELICULA SON ESTAS ::GOS 
UB 5648 
5768 PRINT:AS '8-CENTRATAR LOS MEDI 
0S I-RODAR EXTERIORES 2-RODAR INTE 
RI ORES 3-RODAR EF 
ECTOS ESPECIALES 4- EMPALMAR 5-BAN 
13sA SONORA 6-T I TULOS 
2-DISTRIBUCION DE LA PELICULA' :80SU 
B 5648 
578 PRINT:AS SUPONGAMOS 0UE NO P 
0DEMOS RODAR LOS EFECTOS ESPECIALES 
<NO3) SI ANTES NO HEMOSAC'BAD0 O 
E RODAR INTERIORES Y EXTERIORES.ES 
TO SIONIFICA QUE EL NUDO I Y EL 2 
SON ANTECEDENTES DEL TRES":GOSUB 56 
48 
5788 PRINT:A$='EN ESTE CAS0 LA TARE 
A DE COMIENZ0 ES LA 8. DE ELLA SALD 
 DOS RAMAS DIFERENTES:RODAR INTE 
RIORES Y E×TERIORES.LLIEG0 SI EL PRO 
8R#IA FUERA REAL CUANDO ENTRASEMOS 
EL MUD0 I(REPRESENTAD0 EN NUESTR0 E 
JEMPL0 POR NDI) Y NOS PREOUNTASE 

GOSUB 5640 
5798 LOCATE 69,17:A$='SI EL MUD0 8E 
S ITECEDENTE DIRIAMOS QUE SI. L0 M 
ISM0 0CURRIRIA CON LA TAREA 2 (NO2) 
,QUE TAH-BIEN TIENE P0R ANTECEDENTE 
EL NUDO 8. :GOSUB 5640:PRINT 
5Sgg CLS 
5818 A$-CUAND0 NOS PREGUNTASE SI E 
L MUD0 8 ES ANTECEDENTE DEL NU00 TR 
ES DIRIAMOS QUE NO PER0 SI L0 ES DE 
L MUD0 I(NDI,RODAR EXT, Y DEL ND2) 
DE LO CUAL INFORPRIAt'IOS AL PROGRA 
Pt":GOSUB 5648 
5828 PRINT:A$='POR ULTIMO IRIAMOS P 
ONIEND0 COMO ANTECEDENTES A PARTIR 
DEL NUDO 4 AL NUDO INME-DIATAMENTE 
ANTERIOR. ASI HASTA EL MUD0 FINAL( 
EL 7,DISTRISUCION DE LA PELICULA).' 
:GOSUB 5648 
5838 CLS:A$- "VEAHOS AHORA COHO SER 
IA EL GRAF0 DE TODA LA OPERACION :° 
:OOSU8 5640 
5848 CLS#2 
5858 TAG 
5868 PLOT 78,180:DRAW 70,228:DRAW 3 
8,228:DRAW 38,188:DRI 78,18g:DRA 
70,280 
5878 FOR N I TO 12FOR G--I TO 150:N 
EXT G:MOVE 28,248:PRINT  ";: 
MOVE 38288:PRINT" ";:FOR G=I TO 
158:NE×T G:MOVE 38,288:PRINT'NDB;: 
MOVE 28,248:PRINT'COMIENZ0";:NEXT N 
5888 MOVE 70,288:DRAJ 138,108 
5898 FOR N=I TO 15:FOR G=I TO 15g:N 
EXT S:MOVE 14g,lg8:PRINT " ";:MOV 
E 108,50:PRINT  ";:FOR GI 
TO 158:NE×T G:MOVE 148,180:PRINT'ND 
2";:MOVE 18058:PRINT'RODAR INT';:N 
EXT N 
5988 MOVE 125I12:DRAW 125,88:DI 
166,88:DRAW 166,112DRAI 125,112 
5918 MOVE 78,280:DRAW 328,288:MOVE 
166188:DRAl',; 328288 
5928 FOR N=I TO 15FOR O-I TO 158:N 
EXT G:MOVE I88,238:PRINT' "; 
:MOVE 283,208:PRINT" ";:FOR 13=I T 
0 150:NEXT 8:MOVE 188,238:PRINT'ROD 
AR EXT";:MOVE 283288:PRINT"ND1";N 
EXT N 
5938 MOVE 280,215:DIA 288,193:DRPI 
238,193DRAI 238,15:DIW 288,15 
5948 MOVE 238,288:DRA4 328,288:FOR 
N-I TO 15:FOR O=I TO 158:NEXT 8:MOV 
E 32228:PRINT" ";:MOVE 232,218: 
PRINT" "I:FOR 8=I TO 15g:N 
EXT G:MOVE 322,208:PRINT "ND3";:MOV 
E 232,218:PRINT"RODAR EFEC';:NEXT N 
5950 MOVE 328,215:DRAW 328,193:DRAW 
358,193:DRAbJ 350,215:DRAW 320,215 
5968 MOVE 358,2SO:DRAW 688,288 
5978 MOVE 375,218:PRINT"LOS DEMAS N 
UDOS ESTAN"I 
5988 MOV 375,198:PRINT TODOS EN ES 
TA LINEA; 
5998 TAGOFF:A$-" ":GOSUB 5640 
6080 CLS:CLS#2:LOCATE 1,12:PRINT "P 
ARA VER DE NUEVO EL EJEMPLO ENTRA - 
E-,-I- PARA INSTRUCCIONES,-C- PARA 
COMENZAR' 
6810 A$-UPPER$(INKEY$):IF aS="' THE 
N 6018 
6828 IF A$ "E" THEN GOT0 5710 
830 IF A$-"I" THEN GOTO 5428 
6840 RETURN 



LA VERSATILIDAD 

D L LOGO 

Logo es un lenguaje infinitamente flexible y vers6til, que 
permite abordar los problemas desde un punto de vista 
16gi¢o y bastante ¢ercano a la forma de razonar de 
personas. Estas caractedsticas se traducen en programas 
eleg=ntes y extremadomente cortos, pero con mucha 
como el ejemplo que presento Anlogo esta semona. 

Y 

a hemos comentado 
en m6s de una ocasi6n que el Logo 
sirve para algo m6s que crear exce- 
lentes gr6ficos de ortuga. Tambi6n 
es sabido que, como lenguaje peda- 
g6gico, hoy por hoy, no tienen rival. 
Pero, c6mo se comportaria el len- 
gua.j,e si quisi6ramos hacer una apli- 
caoon que no contempla nada de es- 
to como, por ejemplo, la Loteria Pri- 
mitiva? 
Un programa de la <<Loto>), en Ba- 
sic, no tiene ning0n problema: es 
sencillo de hacer, y corto. AI fin y al 
cabo, s61o se trata de extraer 6 
mero al azar de 49 sin repetici6n. 
El programa en Logo s61o usa dos 
procedimientos, uno de los cuales se 
ha creado en beneficio de los usua- 
rios del 464/664, cuyo Logo (el 2.2), 
por razones de memoria disponible, 
es menos potente. Los poseedores 
del 6128 que no se preocupen. Ese 
procedimiento (memberp>), simple- 
mente ign6renlo y usen la primitiva 
correspondiente del propio lengua- 
je, que, por supuesto, se llama igual. 
Deber6 funcionar en todos los casos. 
Vamos a analizar un poco la 16gi- 
ca del programa, hay que cumplir los 
siguientes objetivos: 

1) Generar un n0mero aleatorio 
entre 1 y 49. 
2) Comprobar que no est repe- 
tido. 
3) Si no Io estg, agregarlo a una 
lista que al final dar6 los 6 nOmeros 
definidos. 
4) Si est repetido, ir al paso 1. 
5) Si la lista en esta etapa tiene 6 
n0meros, indica que son distintos, y 
el programa termina, proporcionan- 
do en pantalla el resultado. 
6) Si nose hanalcanzadolos6 nO- 
meros, repetir todo el ciclo e ir al pa- 
Todo este asunto se encarga de 
gestionarlo el procedimiento LO- 
TO)). Veamos c6mo Io hace, estu- 
di6ndolo Iinea a linea. 
TO LOTO: LISTA 
Definici6n del procedimiento que, 
por razones que se harsh claras lue- 
go, posee un argumento, <LISTA)), el 
cual representa, efectivamente, una 
lista Logo, es decir, una serie corre- 
lativa de objetos que forman un gru- 
po para poder ser manipulado de 
distintas formas. 
(LOCAL "NUM) 
Esta linea es m6s una cuesti6n de 
estilo que de necesidad. La variable 
(num> no va a ser necesarig fuera 
del procedimiento <LOTO)), por Io 
que la declaramos LOCAL A EL.-La 
ventaja de este enfoque estriba en 
que nos aseguramos taxativamente 
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de que la memoria no se nos Ilene de 
cosas in0tiles, que podrfan afectar a 
otros procedimientos, Io queen pro- 
ramaci6n se conoce como <side et- 
cts>), efectos colaterales (en efec- 
to, la variable <num)> s61o existir6 
cuando el procedimiento se ejecute). 
Este tipo de errores son muy difici- 
les de Iocalizar. Por tanto, esta cos- 
tumbre previene la existencia de ba- 
sura en la memoria y modulariza el 
programa, permitiendo controlar el 
100 por 100 de Io que ocurre en ca- 
da procedimiento y qu6 variables se 
manejan en 61. 

PR [LOTERIA PRIMITIVA] 

Bueno, para variar, una linea sin 
ning0n misterio, equivalente a la or- 
den Basic PRINT. 

LABEL "LOOP 

En Logo, casi cualquier cosa pue- 
de hacerse (debe hacerse?) recur- 
sivamente, pero en este caso, para 
ilustrar con mayor claridad la 16gica 
del programa, se ha escogido un bu- 
cle, parecido al FOR...NEXT del Ba- 
sic. Esto se hace declarando una eti- 
queta (LABEL), a la que se le da un 
hombre (LOOP). El int6rprete de Lo- 
go toma esto en cuenta, de forma 
que si se hace una posterior referen- 
cia a este hombre, el programa sa- 
br6 a d6nde dirigirse, saltar o Io que 
sea. 

MAKE "NUM (1 + RANDOM 49) 

Aquf simplemente creamos el nO- 
mero aleatorio y Io <<metemos>> en la 
<<varJable> NUM. Equivalente a la 
sentencia Basic. 

NUM--1 +INT (RND (49)) 

La existencia del I1 + se debe a 
que la orden RANDOM del Logo tie- 
ne un argumento (49), pero da un 
resultado menos que el argumento y, 
adem6s, incluye el cero. El truco de 
sumar 1 acaba con ambas cosas: de- 
saparece el cero y aparece el 49. 
A todo esto, la orden MAKE y las 
comillas de "NUM, son propias de 
la sintaxis del Logo, y, aunque no Io 
parezca, son mucho m6s claras que 
las del Basic, pero para un ingl6s 
(MAKE significa, literalmente, 
(<haz>)). 

A) IF MEMBERP :NUM :LISTA 
B) [PR :NUM PR [EXISTE]] 

C) [MAKE "LISTA (SE :NUM :LISTA)] 
Una de las daves del procedimien- 
to. Se trata de la versi6n Logo del 
IF...THEN...ELSE. 
La linea A) corresponde al IF, con 
la ventaja de que, en Logo, la con- 
dici6n a chequear puede involucrar 
una serie de procedimientos de cual- 
quier grado de complejidad. En es- 
te caso, la condici6n ser6 cierta o fal- 
sa seg0n el resultado que proporcio- 
ne el procedimiento MEMBERP 
(que analizaremos luego), aplicado 
a los argumentos :NUM y :LISTA. 
Si la condici6n es cierta (TRUE), y 
se eiecuta B), es decir, el n0mero 
aleatorio que acabamos de generar 
ya est6 en la lista. Se imprime en 
pantalla un mensaje de aviso y se pa- 
sa a la siguiente instrucci6n del pro- 
grama, saltgndose la parte C). 
Si la condici6n es falsa (FALSE), y 
el nOmero no est6 en la lista, enton- 
ces nos vale, por Io que Io agrega- 
mos en C) a la lista :LISTA, mediante 
la orden Logo <<SE>, que un literal 
(n0mero o caracteres) a una lista por 
cgbeza. 
Es decir, si en este momento lista 
contiene por ejemplo [5] y NUM va- 
le 4, <$E> hace que :LISTA contenga 
[4 5]. 

PR :LISTA 

Simplemente, se imprime en pan- 
talla todos los n0meros que Ilevamos 
hasta ahora. 

IF COUNT :LISTA=6,[OP 1 = I] 
La orden COUNT proporciona un 
n0mero que informa acerca de los 
objetos que contiene el argumento 
(LISTA). Cuando sea igual a 6, el 
programa ha concluido, por Io que 
se ejecuta la parte condicional ([OP 
1 = 1]), y el programa termina impri- 
miendo en la pantalla TRUE. 
Obs6rvese que esta sentencia no 
tiene parte <ELSE, porque no hace 
falta, y que la instrucci6n OP (abre- 
viatura de OUTPUT, salida) causa la 
salida del procedimiento que se est6 
ejecutando a un nivel superior, en es- 
te caso, el <<TOP LEVEb, o sea, el 
propio intrprete. 
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" ROGRAM , 
• REC " V • 

tomemberp :val :lista 
if :lista = [] lop I = 8] 
if :val = first :lista lop ] = l] 
[op memberp :ual bf :lista] 
end 

to loto :lista 
(local 'num) 
pr [LOTERIA PRIMITIVA] 
label 'loop 
hake 'hum ( + rando 49) 
if memberp :nu. :lista [pr :nun pr [existe]] 
[make 'lista (se :hum :lista)] 
pr :lista 
if count :lista = 6 [op I = I] 
go 'loop 
end 

La raz6n de usar la expresi6n 
1=1, que es TRUE siempre, es tam- 
bi6n una costumbre, en mi opini6n 
buena, que permite usar cualquier 
procedimiento, por complejo que 
sea, en una expresi6n condicional (es 
el truco usado en MEMBERP). No 
obstante, se podria haber puesto 
otro cosa, como [OP "FIN DEL PRO- 
GRAMA], pot ejemplo. 

GO "LOOP 

Equivalente del NEXT en Basic. Si 
en la sentencia anterior el programa 
no ha acabado, quiere decir que too 
davia no tenemos 6 nOmeros distin- 
tos, por Io que el procedimiento ((sal- 
ta)) a la etiqueta "LOOP y repite to- 
do el proceso. 

ER$1 • 
" ECUR$1V' 

tomemberp :val :lista 
if :lista = [] [op ] = 8] 
if :val : first :lista (op I : I] 
lop eberp :ual bf :]ista] 
end 

to loto :lista 
(local 'am) 
make 'nun {I + rando 49) 
if meberp :nun :lista [pr :hUm pr [existe]] 
[make 'lista (se :nm :lista)] 
pr :lista 
if count :lista = 6 [op I = I] lop loto :lista] 
end 

to primitiva :]ista 
pr [LOTERIA PRIMIIIVA] 
op loto :lista 
end 
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Quisiera resaltar aqui un fallo, in- 
tencionado, que puede causar pro- 
blemas en casos mcs complejos: Io 
que he dicho en el p6rrafo est6 IM- 
PLICITO, no se deduce a primera vis- 
ta de la inspecci6n del programa. Yo 
Io s6 porque Io he escrito, y usted 
porque Io lee, pero hubiera sido m6s 
correcto incluir esto en la parte EL- 
SE>> del condicional y escribir: 

IF COUNT :LISTA=6 [OP 1 = 1] [GO 
"LOOP] 
Aqui se ve EXPLICITAMENTE que, 
si la condici6n no se cumple, el pro- 
grama Io intenta de nuevo saltando 
a LOOP. 

END 

Creo que es autoexplicativo: se 
acab6. 
Le toca el turno ahora al procedi- 
miento MEMBERP. 
Antes de estudiarlo linea a linea, 
vamos a ver un poco qu6 es Io que 
se supone que debe hacer. 
Nuestro objetivo es averiguar si un 
objeto se encuentra presente en una 
lista o no: para ello, una forma ra- 
zonable de abordarlo es comparar 
el objeto> (nuestro nOmero aleato- 
rio) con el primer elemento de la lis- 
ta; si son iguales, MEMBERP debe 
terminar y comunicar un resultado 
positivo; si son distintos, el proceso 
debe repetirse hasta que se Ilegue al 
fin de la lista o se encuentre una 
igualdad. 
A mi, todo este farrago me suena 
a dos cosas: 
1) Nos interesa, m6s que un resul- 
tado numrico, como 3, por ejemplo, 
un resultado LOGICO, cierto o fal- 
so, estc o no est6. 
2) Como hay que mirar toda una 
lista, elemento por elemento, yen 
principio no sabemos la Iongitud de 
la misma, debe funcionar de forma 
RECURSIVA, repitiendo, pero SIN EL 
PRIMER ELEMENTO DE LA LISTA. 
Bas6ndonos en esto, ya podemos 
intentar ,hincarle el diente a MEM- 
BERP. 

TO MEMBERP :VAL :LISTA 

Todo normal. Nuestro procedi- 
miento tiene dos argumentos: el va- 
-Ior a comparar y la lista donde que- 
remos saber si est6 o no. 

IF :LISTA=[] [OP I=0] 

Por 16gica, algo recursivo debe 
poseer una condici6n que, al cum- 
plirse, cause la salida del procedi- 

miento; de Io contrario, se repetiria 
indefinidamente. El problema es que 
la condici6n, su significado, suele es- 
tar IMPLICITO. En efecto, si se Ilega 
a un momento en que :LISTA est6 va- 
cia ([]), quiere decir que el valor que 
buscamos no est,, porque si estuvie- 
ra, nunca habriamos Ilegado a la si- 
tuaci6n de lista vacia. Es una espe- 
cie de razonamiento al rev6s y, pa- 
ra entenderlo al 100 pot 100, con- 
viene mirar el procedimiento desde 
el final, cuando se llama a si mismo 
recursivamnete. 
La parte [OP 1=0], UNA VEZ 
MAS, PROPORCIONA UN RESUL- 
TADO LOGICO DE FALSO, Io que 
se detecta como resultado en el pro- 
cedimiento principal LOTO, como 
explicamos antes. 

A1) IF :VAL = FIRST :LISTA 
BI) [OP 1=1] 
(11) lOP MEMBERP :VAL BF :LISTA] 
En A1 indagamos si nuestro nOme- 
ro (VAL) es igual al primer (FIRST) 
elemento de LISTA. Si es asi, el pro- 
cedimiento termina dando el resulta- 
do TRUE ([OP 1 = 1]), y LOTO toma 
nota)) de ello. 
Si no se cumple la igualdad, se eje- 
cuta C1, en la cual se llama de nue- 
vo a MEMBERP con VAL pero con 
LISTA sin su primer elemento (BF, 
BUTFIRST, sin primero). Es decir, a la 
siguiente vuelta, el nOmero de obje- 
tos de LISTA ha decrecido en una 
unidad, por Io que, tarde o tempra- 
no, se alcanzar6 la situaci6n de 
igualdad o de lista vacia, asegur6n- 
donos de que MEMBERP terminar6 
alguna vez. En C1, OP es necesario 
para que el resultado de las llama- 
das recursivas sea notificado>> al 
procedimiento Ilamador, a LOTO. 
END 
Sin comentarios. 
Bueno, pues esto es todo. Parece 
mentira que de un programa tan cot- 
to se pueda sacar tanto jugo, pero 
Logo es asi: de muy alto nivel, y lie- 
no de riqueza y contenido oculto. 

Noto: como regalo, tambin incluirnos la ver- 
si6n recursiva del programa, con un procedi- 
miento m6s de Ilamada. A todo esto, el pro- 
grama no recursivo se arranca con: 
Ioto [] 
y el recursivo con: 
primitiva [] 
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El West Bank es la entidad financiera m6s famosa 
de todo el Oeste; por sus puertas puede entrar 
cualquier cliente o un forajido sin escr6pulos, tu 
pistola es la que decide. 

odo comenz6 el 
dia en que al gran 
mag ate de las finanzas Peter Mo- 
ney, e I- • " .. "r una sucursal 
de su banco en pleno Oeste. 
Con la Ilegada de la fiebre del oro, 
laO pequeos poblados cercanos a 
concesiones, eran puntos donde 
el polvo de oro y el dinero corrian 
a raudales, ech6ndose en falta un si- 
tio donde depositar las importantes 
sumas de dinero que algunos conse- 
guian. 

la West Bank Coorporation, 6ste era 
que un banco en un poblado del 
Oeste, no es Io mismo que una sucur- 
sal en Wall Street. 
En el Oeste hay una forma espe- 
cial de tratar con la clientela, Io que 
en cualquier parte debe ser cordia- 
lidad y amabilidad, aqui se puede 
transformar en un asunto que se re- 
suelve pistola en mano. 
La sucursal va a ser visitada por 
una diversa variedad de clientes que 
quieren ingresar su dinero en sitio se- 
guro, y otros que Io Onico que inten- 
tan es sacar dinero a punta de pisto- 
la en vez de utilizar su tarjeta de cr6- 
dito. 
La gran proliferaci6n de delincuen- 
tes que ha traido la Ilegada del oro, 

Esto, que no se escap6 a la clara 
mente de Peter Money, fue el moti- 
vo que le decidi6 a comenzar su 
aventura bancaria en la salvaje tie- 
rra del oro. 
$61o un pequeo detalle perturba- 
ba las previsiones del presidente de 
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hate que cualquier banco peligre se- 
riamente ante tanto desalmado. 
Para evitar que el banco sea visi- 
tado por gente indeseable, debe co- 
Iocarse al frente de la sucursal a un 
hombre duro y sin escrOpulos que se- 
pa ocuparse de la carne de presidio. 

Este debe ocuparse de mantener a 
raya a toda esa marabunta y garan- 
tizar la seguridad del banco, por Io 
cual debe ser un experto pistolero 
desconectado totalmente del mundo 
de la banca. 
Elegida la plantilla adecuada, se 
inaugura la sucursal y comienzan 
nuestros problemas. 
Peter Money nos ha encomenda- 
do la custodia de su banco, nuestro 
rev61ver tiene que decidir qui6n vie- 
ne a depositar dinero o a morir in- 
tentando apoderarse de los rondos 
del banco. 
Esto, que en condiciones normales 
seria una tarea f6cil, se convierte en 
una que requiere toda nuestra aten- 
ci6n, debido a que los forajidos se 
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mezclan con la clientela haciendo di- 
ficil su identificaci6n. 
Nos encontramos en la sala de re- 
cepci6n, tras la ventanilla de ingre- 
sos, a nuestro frente se encuentran 
tres puertas por las que afluyen los 
parroquianos, cada vez que una de 
6stas se abre una sorpresa nos 
aguarda. 
Si detr6s de ella aparece un atra- 
cador, debemos hacer fuego inme- 
diatamente antes de que nos dispa- 
re, pero por el contrario, si se trata 
de uno de nuestros distinguidos clien- 
tes le recibiremos con los brazos 
abiertos." 
Por cada cliente que eliminemos 
por error, perderemos una vida, 
igual que cuando seamos alcanza- 

dos por los disparos de un forajido. 
Entre los visitantes de la sucursal, 
tenemos a los tipicos clientes que vie- 
hen con sendas bolsas de oro en las 
manos, y el caracteristico maleante 
que empuando un pistol6n nos 
apunta con cara de pocos amios. 
Pero para dar mds aliciente a/jue- 
go, hay otros personajes que tan 
pronto pueden depositar dinero co- 
mo darnos un tiro, con Io cual nues- 
tra reacci6n debe ser rdpida y pre- 
cisa exigi(ndonos una gran dosis de 
concentraci6n. 
Entre ellos tenemos al jugador de 
cartas, que enfundado en un elegan- 
te traje porta en su mano izquierda 
una bolsa de oro, con 61 hay que ex- 
tremar el cuidado porque en cual- 
quier momento puede desenfundar. 
Otro es un mejicano que se planta 
en la puerta de nuestro banco con las 
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manos listas para desenfundar, si Io 
hace debemos abrir fuego contra 61, 
si no, dejarle marchar; disparar con- 
tra 61 sin que halla desenfundado nos 
hard perder una vida. 
El otro tipo curioso es el enano de 
los sombreros, su grotesca figura 
aparece tras la puerta, coronada 
por cinco sombreros encajados uno 
sobre otro. 
Si queremos saber Io que guarda 
bajo ellos, se los quitaremos a tiro 
limpio, apareciendo bajo el 01timo su 
aportaci6n al banco. Esta puede ser 
una bolsa deoroa la cual hemos de 
disparar para conseguirla, o una 
bomba que de ser alcanzada por 
nuestras balas, explotard, restdndo- 
nos una vida mds. 

Nuestra misi6n tras la barra, es 
que se deposite oro en las nueve ven- 
tanillas que constituyen la sucursal, 
cuando todas est6n Ilenas habremos 
superado la fase y nos encontramos 
en la calle ante tres forajidos. 
En el duelo hemos de hacer uso de 
toda nuestra sangre fria y esperar a 
que desenfunde uno de ellos para 
abrir fuego, y de esta forma liquidar 
a los tres obteniendo una vida extra, 
disparar sobre uno que no haya deo 
senfundado no nos dard bonifica- 
ci6n. 
Nos encontramos ante un progra- 
ma de producci6n nacional basado 
en su hom6nimo para las mdquinas 
de billares, en el cual todo el inter6s 
estd en ver qu6 nos espera detr6s de 
cada puerta y actuar en consecuen- 
cia. 
Un juego que requiere de toda 
nuestra concentraci6n, la cual se en- 
cuentra repartida entre las tres puer- 
tas a vigilar, y en el que s61o nues- 
tros buenos reflejos nos Ilevardn alas 
m6s altas puntuaciones. 
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ESTION DE 
CAItGA D 

por J. J. Martin 

FICHERO$ 

Hasta hate bien poco. el hater buenas aplicaciones era 
un reto para todo programador que se preciara, sin 
embargo, de un tiempo a esta parte las cosas han 
empezado a cambiar. No. no es que ya no se disee 
buen software, se hate. claro que se hace. Pero ahora 
una nueva voz se alza entre los usuarios: iNo a los 
programas huraSos! 

]'.tienen raz6n. De 
qu sirve un programa que tarda ce- 
ro coma cero cientos segundos en 
clasificar por orden de viudedad la 
lista de parados, si para ello hay que 
pulsar CTRL+$HIFT+J y a la vez te- 
clear en el Keypad el c6digo-alfa- 
numOrico-de-acceso-por-clave-de- 
entroda-mixta-para-personas-fisicas- 
en-situaci6n-no-activa? A la hora de 
disear un programa pueden olvi- 
darse muchas cosas, pero hay una 
fundamental: va a ser ut.ilizado por 
un humano quea Iosumoyen el me- 
jor de los casos tiene dos manos, una 
cabeza y seguramente un jefe que le 
agobia pidiOndole los albaranes de 
antes de ayer. gPor quO no tener es- 
to en cuenta a la hora de realizar un 
programa y facilitarle la vida al po- 
bre usuario que, sin comerlo ni be- 
berlo, se encuentra constantemente 
amenazado ante un tubo de rayos 
cat6dicos? gY si encima queda boni- 
to...? iPues mejor! 
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La rutina que proponemos esta se- 
mona, de prop6sito muy general y 
utilizable en cualquier programa 
donde intervenga una gesti6n de fi- 
cheros o programas, se acerca a es- 
ta filosofia; 16stima de ((rat6n)). 
Veamos con detalle su diseo: 
10000 Rem de costumbre. 
!0010 Definimos un nuevo carcc- 
ter, el 255, formado por lineas blan- 
cas (los ceros), y las lineas negras (los 
255). 
10020 Asignamos a la variable 
BARRAS una serie de caracteres pa- 
ra posteriormente escribirlos en pan- 
talla. 
10030 Ponemos la pantalla en 
modo 2. 
10040-10050 Asignamos a la va- 
riable VALIDAS el contenido de 
aquellas teclas a los que la rutina va 
a responder, estos caracteres est6n 
contenidos en las siguientes teclas: 

-13: Return. 
-240: Cursor arriba. 
-241: Cursor abajo. 
-242: Cursor izquierda. 
-243: Cursor derecha. 

I0060-I0150 Ponemos el directo- 
rio del disco en pantalla e inicializa- 
mos algunas variables, que poste- 
riormente utilizaremos. Las variables 
FID y COD, Ilevar6n las coordena- 

dos de la ilia y la columna del cur- 
sor. El poner la tinta 1 con el color 
O, esto es el negro, nos sirve para 
que no se vea la impresi6n de la pan- 
talla, y mostrarla al final de forma 
instantcnea. En la linea 10090 hace- 
mos el (<DIR)) del disco. El hecho de 
utilizar <<DIR, y no el archiconocido 
<<CAT) tiene una explicaci6n que con- 
viene aclarar. 
El comando CAT, al contrario que 
IDIR, no acepta parmetros, Io que 
impide visualizar de forma selectiva 
una parte del directorio. Para utili- 
zar correctamente esta sentencia, ve- 
nida de CPM hasta el AMSDOS de 
nuestro Amstrad, s61o hace falta te- 
her bien claro dos cosas, un asteris- 
co ('*') se traduce por cualquier pa- 
labra y una interrogaci6n por cual- 
quier letra. De este modo tecleando 
por ejemplo IDIR "*.BAS", obten- 
dremos en pantalla todos los progra- 
mas Basic, grabados en el disco, y 
con IDIR "T??.TXT", todos los fiche- 
ros con extensi6n TXT que empiecen 
por T y tengan una, dos o tres letras 
como nombre. 
Volviendo al programa que nos 
ocupa, esta posibilidad, nos permite 
ofrecer al usuario como opci6n po- 
sible, s61o los ficheros que a nosotros 
nos interesen bien sea control6ndo- 
los por su hombre o por su extensi6n. 
Una vez que hemos imprimido el 
directorio en pantalla, miramos me- 



diante la instrucci6n VPOS en qu li- 
nea de la pantalla nos encontramos. 
Como al hacer el IDIR, se produce 
un salto de dos lineas, el valor de 
VPOS ser6 tres unidades mayor que 
el nOmero de lineas que ocupa el di- 
rectorio real. Restamos estas tres li- 
neas a VPOS y asignamos el conte- 
nido en TOPFIL, que a partir de este 
momento contiene el nOmero de li- 
neas del directorio. 
En la linea 10010 imprimimos la 
variable BARRAS. Esta la utilizare- 
mos para abortar la carga de un 
programa o fichero. 
En la linea 10020 invertimos los co- 
lores de la pluma y del papel, para 
imprimir (I/nea 112130) la cabecera 
de la pantalla con un pequeo men- 
sale informativo. 
Despus restauramos los colores 
de la tinta y del papel, y enviamos 
la ejecuci6n desde la linea 10150 a 
la linea 10260, para que se imprima 
el cursor por primera vez. 
10160-10200 Chequeamos el te- 
clado para ver si se ha pulsado al- 
guna de las teclas del cursor o el Re- 
turn. Para esto cargamos la variable 
TECS con un asterisco, y despu6s en- 
tramos en un bucle (L/neas 
10180-10200), del que no saldremos 
hasta que no pulsemos una de las 
mencionadas teclas. El truco estg en 
ver si la tecla pulsada est6 incluida 
(INSTR) dentro de la variable 
VALIDAS, que como recordar6 con- 
tenia las teclas a las que hay que 
chacer caso. Como el .... , esto es el 
vacio, est6 contenido en cualquier 
variable, en el caso de que no pul- 
semos ninguna tecla, asignamos a 
TECS nuevamente el valor "*" 
10210-10290 Una vez la teclc ha 
sido reconocida como vglida, pasa- 
mos a la rutina de movimiento del 
cursor o aceptaci6n del fichero esco- 
gido (tecla Return). Si la tecla pulsa- 
da es Return, es decir la que contie- 
ne el "CHR$(13)", el fichero selec- 
cionado, donde se encuentra el cur- 
sor, es el que queremos cargar. 
En el caso de que hallamos deci- 
dido mover el cursor, reimprimimos 
el nombre del fichero, recordemos 
que se encontraba en video inverso, 
con pluma blanca y papel negro. 
Despu6s variamos el valor del cursor 
conforme a la tecla del cursor pulsa- 
da, Io que realizamos en las lineas 
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10240 y 10250, tras Io que nos situa- 
mos en la correspondiente posici6n 
de la pantalla. Mediante la linea 
10250 leemos el nombre del fichero 
sobre el que nos encontramos. Esto 
Io conseguimos leyendo once carac- 
teres de la pantalla mediante la ins- 
trucci6n COPYCHRS, caracteres que 
vamos almacenando en la variable 
FICHEROS. 
Una vez que hemos apturado 
el hombre del fichero sobre el que 
nos encontramos, retrocedemos on- 
ce caracteres para imprimirlo en el 
mismo sitio, pero en video inverso 
para resaltarlo. 
Una vez que hemos movido el cur- 
sor volvemos a la rutina de lectura 
del teclado en espera de que pulse- 
mos una nueva tecla. 
Recordemos queen el caso de que 
hubi6semos pulsado la tecla RE- 
TURN, y estamos en los finales de la 
rutina, el flujo del programa era en- 
viado a la linea 10300. 
lOOg-lg32g Si nos encontramos 
en la barra de cancelaci6n cargamos 
en la variable FICHERO$, la palabra 
CANCELADO, Io que posteriormen- 
te controlaremos desde el programa 
principal. Por fin, devolvemos la eje- 
cuci6n al programa principal. 
Como ejemplo de la utilizaci6n de 
esta rutina hemos realizado un pro- 

grama muy sencillo. Nos muestra el 
directorio, nos da la opci6n de ele- 
gir el programa y Io ejecuta. Dada 
su sencillez no hay comentarios. 

En resumen la moraleja de esta ru- 
tina es muy simple, las cosas bien heo 
chas si (amable,: dos veces bien he- 
chas. 

1880@ REI' RUTII' DE GESTION DE FICHER 
OS Y PROGRAMAS 
18810 SYNBOL 255,8,255,0,255,0,255,8, 
255  
10821} barra$=Si'RlhiG(31,255}+'CACELA 
R'+RING$(41,255) 
18030 MODE 2 
18040 REM ---TECLAS UALIDAS 
18058 val idaCHR$(13)÷CHR$(240)+CHRS 
(241)+CHRS(242)+CHR$(243)+CHR$(244) 
I@060 REM ---VISUALIZACI DE DIRECTO 
RIO Y CAR DE VARIABLES 
I0870 f id=4 :cod-:l 
I@080 INK 1,0: 
8090 IDIR, 'w.*' 
10100 TOPF I Le,POS( #0)-3 :LOCATE I ,TOPF 
]L+I :PRINT ' '; 
]0110 LOCATE I,TOPFIL:PRINT BARRA$; 
18128 P @.'PAPER I 
I@130 LOCATE 1,2:PRINT ' 
SELECCIOhlE C TECLAS DE CURSOR-RETUR 
hl DETEINA OPCI '; 
I@140 INK 1,26:PEN I:PAPER @ 
10150 GOTO I0260 
18168 REM ---LECTURA DE TECLADO Y C 
PROBACI DE TECLAS 
10170 TEC='*' 
I0180 WHILE INSTR(VALIDA$,TEC$)=O 

I@190 TEC$=INKEY$:IF TEC=" THEN T 
EC$='*' 

18280 WD 
I0210 REM ---MUEVE CURSOR Y ACEPTA OP 
18220 IF ec$=CHR$(13) THEN GOTO 
18238 LOCATE cod,fid:PRlh[T richer@S; 
I0240 id:=fid-(tec$=CHR$(241) AD fcl 
<TOPFIL)+(tecCHR$(240) D fid)4) 

I0258 cod=cod-15*(tec$=CHR(243) D 
cod<6@)+15(tec=CHR$(242) D cod>l) 
I0260 LOCATE cod,fid 
18278 ichero=":FOR n=O TO ]I:LOCAT 
E cod+n,fid:lichero$=(ichero$+COPYCHR 
$(#B):NEX'T 
18280 LOCATE cod,fid:P 8:PAPER I:PR 
INT fichero$:PEN ]:PAPER 0 
I0290 GOTO I0170 
10380 R ---DEVUELVE NBRE F]CHERO 
A PROGRAMA PRINCIPAL 
0310 IF FID=TOPFIL THEN FICHERO$='CA 
NCELADO' 
18328 RETU 

I@ REN programa demostracion 
2@ GOSUB I@000 
30 IF lichero$()STRING$(B,32) THEN RU 
N fichero$ ELSE LOCATE I@,IB:PRINT 'A 
BORTADO' 
40 END 

30 dlC°OHOBSY AMSTRAD 



M • rcad._o 
co111url 

Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus p6gio 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
yen general cualquier close de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envianos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIRATAS! 

Vendo los libros Hacia la Inteligencia 
Artificial con Amstrad y M0sica y 
sonidos con Amstrad,. Tambin los 
siguientes juegos (versiones originalesl: 
Southern Belle; Dragontorc; Jump Jet; 
Beach Head; Alien 8; Exploding Fist; 
Decathlon; Rocky; Batalla de Midway;. 
Asimismo entrego cuatro cintas virgenes 
C-15 y vendo todo el paquete por s61o 
3.000 ptas. Interesados Ilamar al 
1988) 74 41 38 y preguntar por Dani. 

Vendo videojuego Trensi para TV 
blanco & negro y color. Dispone de tenis, 
hockey, front6n, squash, tiro al blanco y 
tiro al plato. Se entrega con los dos 
mandos para los jugadores, rifle 
desmontable, alimentador e instrucciones. 
Est en perfecto estado y Io vendo pot tan 
s61o 5.000 ptas. Interesados Ilamar al 
(988) 74 41 38 y preguntar por Dani. 

Vendo ordenador de bolsillo & 
calculadora CASIO PB 100, con unidad 
cntral, teclado, pantalla y alimentaci6n en 
una sola pieza. Se incluye un amplio 
manual de instrucciones y un libro de 
programaci6n BASIC PB 100 (ambos en 
castellano), asi como una funda protectora 
y dos pilas de litio CR 2032. Est6 
absolutamente nueva y la vendo por tan 
s61o 4.000 ptas. Interesados Ilamar al 
(988) 74 41 38 y preguntar por Dani. 

Vendo Amstrad CPC 6128 con 
monitor f6sforo verde. Recin comprado 
con garantia oficial de AMSTRAD ESPANA. 
Adjunto programas de regalo (10dicos y de 
utilidades). Todo por s61o 89.900 ptas. 
Interesados Ilamar al (972) 31 53 86. 
Preguntar por Miquel entre las 14 y 16 
horas. O bien escribir a: Miquel Gasull. 
Alvaro de Baz6n, 2. Palam6s (Gerona). 

Desearia cambiar el Everyone's a 
Wally (original), por uno de estos titulos: 
Dragonthorc; Exploding fist; Pole Position; 
Southern Belle; Stars Trike; Knight Lore; 
Beach Head I o Beach Head II. Tambin 
me interesarian otros titulos. Gerona, 30, 
2. ° San Adri6 de Bes6s (Barcelona). Tel. 
(93) 381 08 36. Preguntar por Fernando. 

Vendo Amstrad 464 (monitor color); 
en perfecto estado y con garantia. Regalo 
30 juegos, un joystick, y 10 libros. Precio a. 
convenir. Escribir a: Galicia, 15 apt.601. 
Los Palmas de Gran Canaria. 

Cambio o vendo por Amstrad CPC 
464 f6sforo verde o S0.000 ptos. por un 
Spectrum 48K dispuesto para su 
funcionamiento, con un cassette especial 
para ordenador m6s un interface tipo 
Kempston con salida de sonido por TV y su 
joystick correspondiente. Adem6s todas las 
revistas de: Todospectrum, Microhobby, 
Micromania, Input. Tambin un libro de 
Basic, uno de c6digo m6quina, y uno de 
juegos. Incluyo en el Iote 300 juegos 
educativos, recreativos y culturals cuyo 
valor es de 500.000 ptas. y tambin todos 
los copiones existentes: Mikie, Zorro, 
Rambo, Comando o1 toro, Paradise, Alien 
8, Rocky, Exploding fist, Contabilidad 
domstica, Gens 3, Mons 3, Paintbox, Tans 
Spress, Baudcopy, Gmnycopy, Editor, Beta 
Basic 3/0, Logo, etc. Llamar al tel. 
375 28 81. Barcelona. Manuel Romgn 
Guerrero. Durazno, 1, 5. ° puerta 42 
Cornell6 de Llobregat (Barcelona). 

$1=RVlCIO TECNICO Amstrad 

Barcelona Sevilla 
(93) 307 13 91 (954) 52 56 24 
Valencia ka CoruSa 
(96) 154 11 43 (981) 22 10 12 
Bilbao Zaragoza 
(94) 444 60 87 (976) 34 57 22 
Mlaga P. de Mallorca 
(952) 32 09 44 (971) 23 07 37 

SEDE CENTRAL: 
Avda. Ram6n y Cajal, 107 
Tel. 4168085 

28043 MADRID 

Tu tercera pieza y tu tercer nm  -ro 

Recorta 
y pega 
esta 
pleza 
en su lugar. 

3 

Recorta este nO.mero y 
gurdalo hasta que tengas 
los restantes, despus 
pgalo en su lugar 
correspondiente, de [orma 
que las surnas horizontales 
y verhcales comcidan (15). 



NUMEROS DE 
IMPRESION 

Continuaremos boy con/a confecci6n de a/gunas rutlnas en 
c6digo m6quina, que no son posib/es efectuar/as con simp/es 
//amadas a/ firmware. 

donde 'POSIC' contiene la posici6n 
de pantalla donde se desea pintar. 
H A continuaci6n cargamos en el re- 
gistro HL el n0mero que se desea im- 
primir. 

oy le toca el turno 
a la impresi6n de n0meros en pan- 
talla que c mo todos sabemos resul- 
ta imprescindible en cualquier pro- 
grama que nos propongamos hacer. 
Desde Basic este tema Io Iodemos 
solucionar de una forma bin senci- 
Ila, como puede ser: 
10 A = 5000 
20 PRINT A 
o bien: 
10 PRINT 5000 
Tambi6n nos puede interesar, im- 
primir dichos n0meros en forma he- 
xadecimal, con Io que entonces ha- 
riamos: 
10 A = 5000 
20 PRINT HFXS(A) 
o tambi6n: 
10 PRINT HEXS(5000) 
Pues bien, veamos cu61es son los 
pasos que deberemos efectuar para 
conseguir unas rutinas cuya funci6n 
sea la impresi6n de nOmeros en pan- 
tallas. 

Impresi6n decimal 
de ntmeros 

En primer lugar describiremos la 
encargada de imprimir n0meros en 
forma decimal. 
Para ello Io primero que haremos, 
ser6 posicionar el cursor en pantalla, 
en el lugar clonde se desee imprimir 
el nOmero: 
LD HL,(POSlC) 
CALL #BB75 

LD HL,(NUMERO) 
A partir cle este momento empie- 
za ya la rutina que se encarga 
descifrar el nOmero contenido en HL. 
Dado queen un registro doble, el 
mayor nOmero que se puecle alma- 
cenar es 65535, esta rutina Onica- 
mente imprimir6 nOmeros que se en- 
cuentren dentro clel rango 0-65535. 
Para conseguir desgranar cacla 
uno de los cligitos de que consta el 
nOmero, realizaremos la siguienfe 
operaci6n: Resfaremos en primer lu- 
9ar el valor 10000 al contenido de 
HL, incrementanclo un confador a 
cada resta, hasta que el contenido 
del registro HL sea menor que 
10000. Seguidamenle , efectuaremos 
la misma operaci6n pero restndole 
1000, despu6s 100 y asi sucesiva- 
mente. 
De esta forma, si por ejemplo el 
nOmero era 50000, deberemos res- 
tar el valor 10000, 5 veces, para que 
el contenido de HL sea menor que dio 
cho valor, de esta forma el contador 
valdr 5, con Io que habremos con- 
seguido el primer digito del nOmero 
en cuesti6n. 
Veamos c6mo se realiza este buo 
cle en el cual se procluce la testa 
10000: 
SCF 
LD DE,10000 
INC HL 
LD A,47 
DMIL:INC A 
SBC HL, DE 
JR NC, DMIL 
CALL PRINT 
en primer lugar ponemos a uno el 
flag Carry e incrementamos HL pa- 
ra que la operaci6n 'SBC HL, DE' se 

realice con normalidad, seguidao 
mente cargamos el acumulador con 
47, ya que 6ste es el c6digo ASCI me- 
nos uno del valor'0', y seguidamen- 
te entramos en el bucle que decre- 
menta HL e incrementa al contador 
A. 
Una vez finalizado el bucle, se lla- 
ma a la rutina de impresi6n, la cual 
toma el valor del acumulador y Io 
pinta en pantalla. 
Asi pues este bucle Io deberemos 
repetir 3 veces m6s, pero en este ca- 
so el contenido de DE ser6 1000, 100 
y 10 sucesivamente. 
Cuando se Ilegue alas unidades, 
nb har6 falta ejecutar dicho bucle, ya 
que 0nicamente deberemos sumar el 
conteniclo del acumulador con el de 
L, y Ilamar a la impresi6n: 

ADD A,L 
CALL PRINT 

Como veremos a continuaciOn en 
la rutina de impresi6n, el confenido 
del acumulador siempre se pone a 
47, para que la impresi6n sea la id6- 
nea. 
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La rutina 'PRINT', Io primero que 
hace esllamor a la rutina #BB5Adel 
firmware que es la que provoca la 
impresi6n en pantalla, a continua- 
ci6n cargo el acumulador con 47 y 
resta a HL el contenido de DE, para 
equilibrar la gltima resta que se hi- 
ZO; 
PRINT:CALL #BB5A 
LD A,47 
JR NZ, PAS 
INC HL 
PAS:ADD HL, DE 
INC HL 
RET 

Impresi6n en 
hexadecimal 

Veamos ahora c6mo funciona la 
rutina que imprime en pantalla n0- 
meros en forma hexadecimal. 
En primer lugar se coloca el cursor 
en la posici6n de pantalla deseada 
como hemos hecho anteriormente, y 
a continuaci6n se cargo el registro 

doble HL con el numero que se de- 
sea imprimir. 
Una vez hecho esto, pasamos al 
acumulador la parte m6s significati- 
va del n0mero es decir, la que con- 
tiene el registro H: 
LD A,H 
CALL PRHEX 
y Ilamamos o la rutina que imprima 
dicho valor en hexadecimal. 
Cuando entramos en esta rutina, 
en primer lugar preservamos AF, y 
tomamos los 4 bits mcs significativos 
del acumulador: 
PRHEX:PUSH AF 
AND #F0 
y ahora pasamos esos bits y los des- 
plazamos al lugar de los 4 menos sig- 
nificativos: 
SRL A 
SRL A 
SRL A 
SRL A 
En este momento tenemos en el 
acumulador un n0mero que se en- 
cuentra dentro del rango 0-15, ya 

que sos son los valores que nos pue- 
den dar los 4 bits de menor orden. 
Ahora debemos Ilamor a la rutina 
que deber6 ajustar el contenido del 
acumulador al rango del valor ASCI 
de 0-F. 
VHEX:ADD A,48 
CP 58 
JR C, NOSUM 
sumamos 48 al contenido del acumu- 
lador, y si no hay Carry imprimimos 
ese valor, de Io contrario indicar6 
que el n0mero en cuesti6n es mayor 
que '9', por Io que deberemos ajus- 
tar nuevamente ese valor para que 
nos d6 un car6cter dentro del rango 
A-F: 
ADD A,7 
NOSUM:CALL #BB5A 
RET 
de esta forma habremos conseguido 
imprimir el primer digito del nOmero 
hexadecimal en cuesti6n. 
Volvamos al lugar donde se ha Ila- 
mado a la rutina 'VHEX': 
CALL VHEX 
POP AF 
AND #F 
VHEX: ADD A,48 
debemos recuperar el valor del re- 
gistro A que hemos almacenado pre- 
viamente, y ahora tomamos los 4 bits 
menos significativos, para imprimir el 
segundo digito de nuestro n0mero, 
ya que entramos directamente en la 
rutina 'VH EX'. 
Una vez hecho esto, se carga en 
el acumulador el registro L, que con- 
tenia la parte menos significativa del 
n0mero que se deseaba imprimir, y 
se vuelve a repetir el mismo proceso 
descrito anteriormente, con Io cual 
obtendremos impresionado en pan- 
talla el nOmero deseado. 
En las 01timas lineas de cada una 
de los rutinas es donde hemos alma- 
cenado los variables utilizadas, que 
inicialmente contienen los siguientes 
valores: 
POSIC:DEFW #0505 
NUMERO:DEFW 5000 
por Io tanto deberemos colocar en 
estas 2 variables, el lugar de impre- 
si6n en pantalla y el ngmero que se 
desea imprimir. 
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A888 10 0RG #A880 A888 
28 ; 
38 ; 
48 ;IMPRIME NLMEROS DECIMALES 

58 ; ; 
68 ; 68 ; 
A808 2A49A8 78 LD HL,(POSIC) A888 2A2FA8 78 
A883 CD75BB 88 CALL #B875 A883 CD75BB 88 
A886 2A4BA8 90 LD HL,(NUMER0) A886 2A31A8 98 
A889 37 188 SCF A889 7C 188 
ASBA 111827 118 LD DE,18888 ABSA CDI2A8 
ASBD 23 128 INC HL ASBD 70 128 
A88E 3E2F 138 LD A,47 A80E CDI2A8 138 
A818 3C 148 DIIL: INC A ASII C9 148 
A811 ED52 158 SBC HL,DE A812 F5 158 PRHEX: 
A813 38FB 168 JR NC,DMIL A813 E6F8 168 
A815 CD3EA8 178 CALL PRINT A815 CB3F 178 
A818 IIE883 188 LD DE,1888 A817 CB3F 188 
ASIB 3C 198 MIL: INC A A819 CB3F 198 
ASIC ED52 288 SBC HL,0E A81B CB3F 288 
ASIE 38FB 218 JR NC,MIL ASID CD23A8 218 
A828 CD3EA8 228 CALL PRINT A828 FI 228 
A823 116480 230 LD DE,188 A821 E68F 238 
A826 3C 248 CIEN: INC A A823 C638 248 VHEX: 
A827 ED52 258 SBC HL,DE A825 FE3A 258 
A829 38FB 268 JR NC,CIEN A827 3882 268 
A82B CD3EA8 278 CALL PRINT A829 C687 278 
A82E I18A88 288 LD DE,18 A82B CDSABB 288 NOSUFI: 
A831 3C 298 DIEZ: INC A AB2E C9 290 
A832 ED52 388 SBC HL,DE AB2F 8585 388 POSIC: 
A834 38FB 318 JR NC,DIEZ A831 CCFA. 318 NUMERO: DEFW #FACC 
A836 CD3EA8 328 CALL PRINT 
A839 85 338 ADD A,L NOSUM A82B NUMER0 A831 POSIC A82F 
A83A CD3EA8 348 CALL PRINT PRHEX A812 VHEX A823 
A83D C9 358 RET 
A83E CD5ABB 368 PRINT: CALL #BBSA 
A841 3E2F 378 LD A,47 18 FOR N=&A808 TO &A833 
A843 2881 388 JR NZ,PAS 20 READ A:$UMA=SUMA+A 
38 POKE N,A 
A845 23 398 INC HL 
A846 19 488 PAS: ADD HL,DE 48 NEXT 
A847 23 410 INC HL 58 IF SUMA<>&IACA THEN PRINT 'ERROR 
A848 C9 428 RET EN DATAS" 
A049 8505 430 POSIC: DEFW #8585 68 DATA 42,47,160,285,117,187,42 
A848 8F27 448 NUMER0: DEFW 9999 78 DATA 49,168,124,205,18,168,125 
88 DATA 205,18,160,281,245,238,248 
CIEN A826 DIEZ A831 DMIL A018 98 DATA 283,63,283,63,283,63,283 
MIL A01B NLER0 AG4B PAS A046 188 DATA 63,285,35,168,241,238,15 
POSIC A849 PRINT A83E 118 DATA 198,48,254,58,5672,198 
128 DATA 7,285,98,187,281,5,5 
138 DATA 284,258,8,8,8,8,8 

18 REM *PROGRAMA CARGADOR* 
28 FOR N=&A888 TO &A84D 
38 READ A:SSUMA+A 
40 POKE N,A 

18 0RG #A888 
28 ; 
38 ; 
48 ;IMPRIME NUMER0 HEXADECIMALES 
58 

LD HL,(POSIC) 
CALL #B875 
LD HL, (NLIER0) 
LD A,H 
CALL PRHEX 
LD A,L 
CALL PRHEX 
RET 
PUSH AF 
AND 
SRL A 
SRL A 
SRL A 
SRL A 
CALL VHEX 
POP AF 
AND #F 
ADD A,48 
CP 58 
JR C,NOSUM 
ADD A,7 
CALL #BBS 
RET 
DEFW #0585 

58 NEXT 
68 IF SUMA(>&IED5 THEN PRINT "ERROR 
78 TA 42,73,68,285,17,87,42 
98 TA 62,47,68,237,82,48,251 I 
lee TA 205,62,160,17,232,3,68 - 
148 TA 6e,237,e2,48,251,2es,62 
160 TA 90,187,62,47,32,1,35 
178 TA 25,35,2ei,5,5,15,39,B 
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oic  t, ,- ci  t, , atrasad0 

A969 

A666 2A49A9 
A693 CD75BB 
A666 2A419 
A969 37 
A66A 111627 
A69D 23 

• Deseo recibir en mi domicilio los siguientes n0meros atrasados de Microhobby 
Amstrad 1 rdo d 10 t. cdo o 
El nOmero 4 est6 agotado. 
• Oeseo recibir la(s) cinta(s) de programas que indico a continuaci6n. Cada una de 
estas cintas Ileva grabados los programas publicados par Microhobby Amstrad 
cuatro n0meros consecutivos (1 al 4, 5 al 8, 9 al 12, etc.) y su precio es de 756 ptas. (IVA incluido). 
N6meras del al Ilnclusivo) N0meras del al [Indusivel 
N6meros del ol [inclusive) N0meros del ol [Inclusive) 
N0meros del al [Inclusive) NOmeros del. ol Jlnclusivel 
NOMBRE Fecha de nacimiento 
APELLIDOS Domicilio 

A99E 3E2F 
A616 3C 
AII ED52 
A913 36FB 
A615 CD3EA9 
A918 IIE863 
ATIB 3C 
A61C ED52 
AOIE 36FB 
A929 CD3EA6 
A923 116499 
A826 
A927 ED52 
A929 39FB 
A928 CD3EA6 
AO2E I19A99 
A931 3C 
A632 ED52 
A634 39F8 
A936 CD3EA6 
A639 85 
AO3A CD3EA6 
A93D C9 
AO3E CDSABB 
A941 3E2F 
A943 2691 
A945 23 
A946 19 
A647 23 
A948 C9 
A649 9505 
A948 9F27 
CIEN A926 
MIL A91B 
POSIC A049 

LOCALIDAD 
C. POSTAL TLEFONO 
Eres suscriptor de Microhobby Amstrad? 
Marco con una (xl en el casillero correspondienle Io formo de go qua m6s me canvie- 
ile, 
13 Tarjeb de cr6dib n. ° 
FI Visa [] American Express [] Master Charge 
Fecha de coducidad de la lorjelo 
[] Tol6n bancario a hombre de HOBBY PRESS, S.A. 
[] Gro Postal a nambe de HOBBY PRESS, S. A., N. ° del gro 
[3 Conlra reembolso Is61o pora n0meros alrasodos, supone 75 peselos de gastos de enviol. 

276 CALL PRINT 
286 LD DE,10 
299 DIEZ: INC A 
366 SBC HL,DE 
316 JR NC,DIEZ 
329 C.ALL PRINT 
336 ADD A,L 
346 CALL PRINT 
356 RET 
366 PRINT: CALL #BBSA 
376 LD A,47 
386 JR NZ,PAS 
399 INC HL 
469 PAS: ADD HL,DE 
416 INC HL 
428 RET 
439 POSIC: DEFW #9595 
446 NLSMERO: DEFW 9999 

PROVINCIA 
PROFESION 

Fecha y firma 

DIEZ A931 DMIL A616 
NLIMER0 A848 PAS A946 
PRINT A93E 

19 REN *PROGRAMA CARGAOOR* 
29 FOR N=&A969 TO &Ag4D 
36 READ A:SIJMA=SLAMA+A 

A929 C697 276 ADD A,7 
A628 CDSABB 286 NOSLAM: CALL #BBSA 
AB2E C9 299 RET 
AO2F 6595 369 P081C: DEFW #9595 
A931 CCFA. 316 NLIMER0: DEFW #FACC 
NOSLAM A62B NLAMER0 A631 POSIC AO2F 
PRHEX A612 VHEX A823 

19 FOR N=&A89 TO &A933 
29 READ A:SUMA=SUMA+A 
36 POKE N,A 
48 NEXT 
58 IF SLIMA<>&IACA THEN PRINT "ERROR 
EN DATAS" 
66 DATA 42,47,169,295,117,187,42 
79 DATA 49,166,124,285,18,169,125 
89 DATA 295,18,|68,291,245,236,249 
99 DATA 263,63,263,63,293,63,293 
199 DATA 63,295,35,168,241,239,15 
118 DATA 198,48,254,58,56,2,198 
126 DATA 7,295,99,187,261,5,5 
138 DATA 284,256,9,9,6,6,9 

49 POKE N,A 
56 NE)(T 
69 IF 8UI<>&IED5 THEN PRINT "ERROR 
76 DATA 42,73,168,2e5,117,187,42 
96 DATA 62,47,69,237,82,48,251 .:.I 
169 DATA 285,62,160,17,232,3,66 
129 DATA 17,199,8,69,237,82,48 
139 DATA 251,295,62,166,17,19,9 
149 DATA 69,237,82,48,251,265,62 
159 TA 166,133,265,62,169,291,25 
169 TA 96,187,62,47,32,1,35 
179 TA 25,35,291,5,5,15,39,9 
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Descubre el fascinante mundo tie los robots. Su Utdidd, los 
dltimos avances y como a[ectarn a tu viol.. • I jueo o de 
la vida: nacimiento, evolucion y muerte en un mu d o. 
fantas[a.  Simuladores de vuelo: Un trepidante vuelo sobre 
todos los simuladores de combate para AMSTRAD. 
 HISOFT-C: I lenguaje de alto .nivel ms rpido del mundo 
para tu CPC.  El mundo de bloque : Co ° -sldn del 
lenguaje natural desde.Basic. • Forth: Todo un lenguaj- 
especialmente diseado para ti.  Todo esto y mucho ms 
en AMSTRAD ESP CIAL NUMERO TRES. 



conceb  do para sust  tu  r 
a la m  quina de- s ri,ir 

129.900 

' Pts.+IVA 

ST "A | PCW8256 

UN COMPLET0 EQUIPO QUE INCLUYE: 
• Un,dad Central (256 K RAM) • Teclado en castellano 
• Umd,d de dsco (180 K pot cara) • Pantalta de alta 
resoluc6n • Impresora alta cahdad (NLQ) 
• Programas" • Procesador de [extos, sstema Operatvo 
C P/M Plus, Mallard Basic con JET SAM para flcheros 
ndexados. lenguale DR LOGO. 

PROGRAMAS PROFESIONALES 
• Contabddades • Almacenes • Facturac6n • HOJA 
DE CALCULO IVlultipln, Supercalc 2, Cracker, 
Plannercalc. BASES DE DATOS. DBase II, Amsfil- 
Flexfile. Boriar. LENGUAJES: Cobol, Fortran, Pasca 
MT +. Plot, etc. 

Tambidn disponible la versibn PCW 8512, con 512 K RAM y 2 ° disco de 1 MBYTE incorporado. 

P.V.P. 149.900,-- Ptas. + IVA 

SOLICITE DEMOSTRACION EN: 
Divisi6n informatca de (.1.,, Division '--= =--" de CIFP, IAS. 
Tiendas especialzadas en informatica y Equipos de oficina. 
NOTA: El Amstrad tamb&n puede ser utihzado como "Terminal InteligenW' 
de grandes equpos =nform,licos  
 ..,, ....    s 
I I 
GRUP0 INOESC0"IP 

C/. Aravaca, 22. 28040 Madrid. Tel. 459 30 Ol. Telex 47660 I NSC E. Fax 459 22 92. Delegacbn en Catalura: Cl. Tarragona, 110. Tel. 32510 58. 08015 Barcelona. 



